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AVERTISSEMENT 


SI VOUS voulez utiliser correctement les programmes de ce 
livre, lisez attentivement les conseils suivants : 


M Avant de taper un programme, vous devez initialiser 
Amstrad en appuyant simultanément sur les touches 
[SHIFT], [CTRL] et [ESC]. 

Effectuez la même opération avant de charger un 
programme à partir du datacorder. 


M Pour gagner en rapidité d'exécution certaines 
instructions NEXT ne sont pas suivies d’une variable (gain 
de 10 à 20 %). 


M Si vous n'obtenez pas les mêmes résultats que sur les 
exemples, vérifiez bien toutes les lignes et surtout celles 
contenant des DATA. 


M Dès que les programmes sont entrés dans votre 
AMSTRAD, sauvez-les sur le datacorder. Pour les 
programmes très longs, il est vivement conseillé 
d'effectuer une première sauvegarde au milieu de leur 
frappe. N'attendez pas qu'ils soient entièrement entrés et 
testés. une coupure de courant est si vite arrivée ! 


M Quand vous entrez des chiffres décimaux, assurez-vous 
que vous tapez un point et non une virgule entre deux 
chiffres. 


M ASSurez-vous que vous êtes en majuscules dès la mise 
en route, en appuyant sur CAPS LOCK. 
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CHAPITRE 1 : 
JEUX D’ADRESSE 


GRENOUILLE | 


12 





Si VOUS croyez que la vie d'une grenouille est de tout 
repos, Vous allez vite changer d'idée. 


Car l'héroîne de ce programme s’est endormie sur son 
nénuphar et rêve qu’elle se trouve au bord d’une route et 
d'une rivière qu'elle doit traverser pour regagner les 
rochers salutaires de l’autre rive. 


Après avoir lancé le programme, vous pouvez manœuvrer 
votre grenouille latéralement avec les touches P et Q : vous 
devez la faire sauter en utilisant la barre d'espacement. 
Attention à bien viser entre les véhicules qui défilent 
impitoyablement ; sinon vous perdrez à coup sûr une des 
trois vies qui vous sont allouées à chaque début de partie. 


Ouf ! vous êtes sur le bord de la rivière. || vous faut 
maintenant emprunter un tronc d'arbre ou un crocodile 
pour aller sauter sur l’un des rochers. Mais alors la pauvre 
grenouille se retrouve à nouveau sur le bord de la route. 
Son rêve ne cessera que lorsqu'elle aura regagné 
successivement les cinq rochers. 


Alors, à vos bonds, prêt, partez !.… 


À la fin de chaque partie, relevez votre score (en haut à 
gauche de l'écran) et enfoncez la touche ENTER pour un 
autre jeu. 
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10 REM GRENOUILLE 
20 REM 
30 DEFINT A-Z:SYMBOL AFTER 128 

40 DIM P(22),I1(22):GOSUB 500 

50 V=2:LOCATE 24,1:PAPER @:PEN 1:PRINT "VIE: 2" 

68 P=0 

780 T=0 

86 X=19:Y=22 

96 PEN I(Y):PAPER P(Y):LOCATE X,Y:PRINT CHR$S(138): 
AX=X: AY=Y 

106 A=2:FOR I=1 TO 8 
118 PEN I(I#2+A):PAPER 
NT MID$(L$(I1),D(I),48) 
128 IF I=4 THEN A=4 
130 NEXT 

140 IF Y=2 THEN IF C<i THEN 1100 ELSE 1208 

159 FOR I=1 TO 7 STEP 2 

160 D(I)=D(I)+1:IF D(1)=25 THEN D(I})=1 

178 A ne D(I1+1)=0 THEN D(I+1)=24 


180 
199 PEN 1:PAPER 8:LOCATE 5,1:PRINT "POINTS: ":P 
288 REM --- 
290 REM DEPLACEMENTS 
300 AS=INKEYS 
310 IF AS="P" THEN X=X+1 
320 IF-A$="Q" THEN X=X-1 
330 IF AS$=" " THEN Y=Y-2:P=P+1 
IF AY=12 OR AY=22 THEN PEN I(AY):PAPER P(AY):L 


um dm ee ne un ne ee = e = 0 = = os = ne ov = = 2 es = «= =w 


P(I#2+A):LOCATE 1,I#2+A:PRI 


+ D D = 0e D Oh Qu D D D mé AU SO ŒR ie dub JUN MD D ve Qu AU AD Se = ue où = 


340 
OCATE AX,AY:PRINT " " 

350 C=TEST(X#*16-2,404-Y*16)+TEST(X*16-14,404-Y*16) 
360 IF Y<12 AND C>5 THEN 1100 

370 IF Y>12 AND C>6 THEN 1168 

380 IF X<2 OR X>39 THEN 1100 

396 IF AY<>Y THEN 96 

409 IF Y=4 OR Y=8 THEN X=X-1 

416 IF Y=6 OR Y=10 THEN X=X+1 

428 GOTO 96 

480 REM 
490 REM GRAPHIQUES 
596 SYMBOL 


D ER GR SO D RO fe D Ou D D M D OUR D Ad y ŒR D AU Un QU AD D un AN ŒU D 


510 
520 
530 
540 
990 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


128,63,72,136,255,128,255,136,112 
129,224,16,8,255,1,255, 34, 28 
130,7,8,16,255,128,255,68 56 
131,248,36,34,255,1,255,17,14 
132,254,142,142,254,255,255,68, 56 
133,127,113,113,127,255, 255, 34, 28 
134,15,23,35,65,65,35,23,15 
135,240, 248,252,254,254, 252, 248,240 
136,240,232,196,130,130,196, 232,240 
137,15,31,63,127,127,63,31,15 
138,28,73,127,28,28,62,99,99 
139,255,255,255,255,255,255,255,255 
140,255,255,255,255,255,255,68, 56 
141,255,255,255,255,255,255,0,0 
142,6,192,96,48,31,13,7,255 
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650 SYMBOL 143,0,0,90,0,255,255,255,255 

660 SYMBOL 144,0,0,0,9,192,240,252,255 

670 FOR J=1 TO 4:A$="":READ N,M,0 

689 FOR I=1 TO O0 

690 READ A:IF A=17 THEN AS$S=AS$S+" “ ELSE AS$S=AS$S+CHRS( 

A+128) 

708 NEXT Ï]I 

710 FOR I=1 TO M:LS$S(N)=L$S(N)+A$:NEXT I 

720 NEXT J 

730 L$(3)}=L$(1):L$(4)=L$S(2) 

740 L$(7)=L$(5):L$(8)=L$(6) 

750 DATA 1,3,24,17,17,6,11,11,11,7,17,17,17,17,17, 
17,14,15,15,15,16,17,17,17,17,17,17 

768 DATA 2,3,24,9,11,11,8,17,17,17,17,17,17,17,17, 
9,11,11,8,17,17,17,17,17,17,17,17 

778 DATA 5,6,12,4,12,13,13,12,17,17,2,3,17,17,17 
786 DATA 6,6,12,12,12,5,17,17,17,17,0,1,17,17,17 

889 REM ------------------------------ 

899 REM COULEURS 

906 MODE 1:INK 0,13:INK 1,24:INK 2,6:INK 3,2:PAPER 
O:PEN 1:BORDER 13:-PRINT 

9106 FOR I=1 TO 22 

928 READ A,B:PAPER A:PEN B:PRINT STRINGS$(40, 32 ); 
938 P(I)-= À: I(I1)=8 

94Q NEXT I 

958 DATA 6,1,0,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,2 
Li, 2 1 | | 

966 DATA 8,1,0,1,0,1,0,1,0,1,0,1,8,1,8,1,0,1,0,1 

970 FOR I=1 TO 7 STEP 4 

980 D(I)=1:D(1+1)=26 

990 D(I+2)=5:D(I1+3)=21 

1008 NEXT I 

1010 PEN 1:PAPER @ 

1028 LOCATE 7,2:PRINT CHR$(139)CHR$(139)" *CHRS 
(139)CHRS(139);: 


1030 PRINT "  "CHR$S(139)CHR$(139)"  "CHRS(139) 
CHRS(139)"  "CHRS(139)CHRS(139) 

1849 RETURN 

1089 REM --------------- 


1098 REM PERDU 

1108 FOR I=50 TO 508 STEP 5:SOUND 1,1,2:NEXT 
1119 V=V-1 

1120 IF V<O THEN LINE INPUT A$:RUN 

1130 LOCATE X,Y:PRINT" ":LOCATE 24,1:PRINT "VIES:" 
.V 

1140 GOTO 80 

1189 REM -------". 

1198 REM GAGNE 

12086 FOR I=508 TO 58 STEP-5: SOUND 1,1,2:NEXT 
1210 T=T+1:P=P+10 

1220 IF T=5 THEN GOSUB 1010:P=P+50:GOTO 70 
1230 PEN 1:PAPER O6:LOCATE X-1,Y:PRINT "  " 
1240 GOTO 8@ 
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PROGRAMME Lignes 30 à 80 : initialisation 
Cette première partie du programme appelle le sous- 
programme en 500 qui exécute les tâches suivantes: 


1 — Définition des caractères graphiques (lignes 500 à | 
660). 


2 — Définition du tableau L$ contenant les objets à 
déplacer sur l'écran et les pointeurs correspondants 
(tableau D. lignes 670 à 780). 


3 — Affectation des codes couleurs pour le papier et 
l'encre à chaque ligne de l'écran (lignes 900 à 1040). 


Les variables X et Ÿ donnent la position de départ de la 
grenouille. 


Lignes 90 à 190 : le jeu 


Après l'affichage de la grenouille et la sauvegarde de ses 
coordonnées dans AX et AY, on place sur l'écran les 
chaînes de caractères du tableau LS à partir des pointeurs 
D(). 

Si la grenouille est déjà sur la ligne 2 de l'écran (ligne 
140), on va en 1200 pour le comptage des rochers. 


Les lignes 150 à 180 modifient le tableau des pointeurs D 
pour le déplacement des objets. 


Lignes 300 à 420 : déplacements 


En fonction de la touche qui vient d'être appuyée, on 
modifie les variables X et Ÿ. On place dans C la couleur qui 
correspond à ces nouvelles coordonnées. 


Si C est égal à un blanc et si la grenouille est sur la rivière 
(ligne 360), on va en 1100 pour la phase « PERDU ». 
Idem quand C est différent d’un espace et que la grenouille 
se trouve sur la route (ligne 370). 


Si la grenouille dépasse les limites de l'écran (en 
ligne 380), on va aussi en 1100. 


La grenouille devant suivre le cours de l’eau, on la déplace 
à droite ou à gauche suivant qu'elle se trouve sur un tronc 
d'arbre ou un crocodile (lignes 400 et 410). 


Lignes 1100 à 1240 : perdu et gagné 


Si l’on a perdu une vie, on décrémente le compteur V, et 
l'on revient au jeu uniquement si V est encore supérieur 
à 0. 

Si l’on a gagné, on incrémente le compteur de rochers T 
de 1 et le compteur de points de 10. Si T est inférieur à 5 
on continue le jeu, sinon, on recommence une partie en 
incrémentant le compteur P de 50 points. 
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LISTE | À 


DES VARIABLES : 


A$ 
AX et AY 


C 
DU 
I() 
J 
L$() 
P 
P() 
T 


V 
Xet Y 
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utilisée pour le déplacement des objets: A=2 
lignes du haut, A=4 lignes du bas 
dernière touche appuyée 

anciennes coordonnées de la grenouille 
couleur sous la grenouille 

pointeurs dans les chaînes L$() 

indice de boucle FOR/NEXT 

table des stylos 

indice de boucle FOR/NEXT 

chaînes d'objets 

nombre de points 

table des papiers 

nombre de rochers 

nombre de vies 

coordonnées de la grenouille 








CANADAIR 


Qui n'a jamais rêvé d’être seul maître à bord d’un avion ? 


Voilà l'occasion d'exercer vos talents de pilote. 


Un feu de forêt vient d’être annoncé et le canadair doit jeter 


son eau sur les flammes dessinées à l'écran. 


Au premier tableau, le canadair va et vient, d’abord 
lentement, puis sa vitesse est doublée définitivement. 


Le largage de l’eau se fait par la barre d'espace ainsi que 
les changements de tableaux quand toutes les flammes 
sont éteintes, et les remises en jeu. 


Attention : aux tableaux suivants, les flammes montent 
de plus en plus haut et nécessitent une bonne réflexion 
stratégique pendant la descente. 


Quand l'avion heurte une flamme, il s'écrase et repart à 
zéro. 


POINTS: 57 NIVEAU: & 


L d 


haut 
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19 REM CANADAIR 

29 REM ----------- 
30 SYMBOL AFTER 128:GOSUB 1000 

40 MODE 1:INK @,0:INK 1,6:INK 2,24:INK 3,2:PAPER @ 
PEN 1:BORDER 

50 RANDOMIZE TIME:N=1:P=0.5 

60 I=P 

70 PEN 2:LOCATE 31,1:PRINT"NIVEAU:";N:PEN 1 
189 REM ------------- 
190 REM DESSIN DU JEU 

200 FOR X=1 TO 48 

218 A=INT(RND«Nx4) 

220 LOCATE X,21-A:PRINT CHR$(128) 

230 FOR Y=22-A TO 22 

240 LOCATE X,Y:PRINT CHR$(129) 

250 NEXT Y 

268 NEXT X 

270 X=1 

280 Y=1 
RE 
399 REM LE JEU 

408 PEN 2:LOCATE X,Y:PRINT " " 

418 IF X>=48 THEN I=-P 

420 IF X<=1 THEN I=P:Y=Y+1 

430 IF Y=4 THEN P=1 

440 IF Y=22 THEN 908 

458 X=X+I 

468 IF TEST(X*16-8,408-Y*16)>@ THEN 800 
470 IF I>0 THEN LOCATE X,Y:PRINT CHR$(131):GOTO 49 
480 LOCATE X,Y:PRINT CHR$(132) 

498 FOR K=1 TO 3@8:NEXT:IF F=1 THEN 540 
500 IF INKEYS="" THEN 400 

510 F=1 

520 L=Y+1 

534 C=X 

54@ LOCATE C,L:PRINT " " 

550 L=1+1 

560 IF L>=23 THEN F=0:GOTO 408 

570 IF TEST(C*16-8,408-L»*16)>0 THEN 600 
580 PEN 3:LOCATE C,L:PRINT CHRS(138@) 
590 GOTO 408 

600 F=0:T=T+1:PEN 2:LOCATE 1,1:PRINT "POINTS:";T 
614 FOR J=L TO L+2 

620 IF J<23 THEN LOCATE C,J:PRINT “ 
638 NEXT J:l=1.+? 

64Q IF L>=22 THEN 400 

650 PEN 1:LOCATE C,L:PRINT CHR$(128) 
66@ GOTO 409 
OR 
798 REM PERDU 
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800 IF X>=40 THEN X=39 

819 FOR I=Y TO 21 

820 LOCATE X,I-1:PRINT" " 

830 LOCATE X,I:PRINT"#x":LOCATE X,I+H+:PRINT CHR$S(1 
31)"+" 

849 NEXT I 

850 IF INKEYS="" THEN 850 

868 RUN 
D 

890 REM GAGNE 

900 FOR I=50@ TO 54 STEP -5:SOUND 1,1,2:NEXT 
910 IF INKFYS="" THEN 918 

929 N=N+1:IF N=5 THEN N=4 

930 GOTO 60 
RE 

998 REM GRAPHIQUES 

1000 SYMBOL 128,8,24,56,60,124,126,126,63 
1018 SYMBOL 129,63,126,126,252,252.126, 126,63 
1020 SYMBOL 130,162,73,22,169,100,18,91, 36 
1038 SYMBOL 131,32,144,255,255,60,16,32,0 
1948 SYMBOL 132,4,9,255,255,60,8,4,0 

1858 RETURN | 


LISTE A nombre aléatoire : hauteur des flammes 
CetL coordonnées de l’eau 
DES VARIABLES : drapeau: si F=1 l'eau est en cours de 
descente 
indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
niveau du jeu 
incrément de base 
nombre de points 
et Y coordonnées de l'avion 


T1 


KATZEZ— 
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PROGRAMME 


Lignes 30 à 70 : initialisation 
Après la définition des graphiques par le sous-programme 


en 1000, oninitialise les diverses variables (voir liste des 
variables). 


Lignes 200 à 280 : dessin du jeu 


La variable N donnant le niveau du jeu, on affiche à partir 
du bas de l'écran des flammes dont la hauteur est 
déterminée par un nombre aléatoire fonction de N. 


Les variables X et Ÿ définissent la position du canadair. 


Lignes 400 à 660 : le jeu 


Si le canadair arrive à droite de l'écran (X>=40), on 
change de direction en modifiant la valeur de l’incrément | 
(ligne 410). 

On effectue l'opération inverse s’il arrive à gauche (X<=1 
en ligne 420) et l'on descend d'une ligne. 


Quand on arrive sur la quatrième ligne (Y=4), on change 
l'incrément de base pour aller plus vite (de 0.5 à 1). 


La 22° ligne étant la dernière, on incrémente le niveau du 
jeu N, et l’on commence une nouvelle partie (ligne 440). 


Une fois la position du canadair modifiée (ligne 450), on 
teste sur l'écran le caractère qui s’y trouve. Si celui-ci est 
différent de 0 (une flamme), on va en ligne 800 pour la fin 
du jeu. 

Suivant la valeur de | (positive ou négative), on affiche un 
canadair vers la gauche ou vers la droite (lignes 470 et 
480). 

Le drapeau F indique que de l'eau est déjà en train de 
descendre. On va alors directement en ligne 540. 

Dans l'autre cas, on teste le clavier pour savoir si l'on doit 
jeter de l’eau ou non. 

Les lignes 520 à 590 affichent sur l'écran l’eau qui 
descend. Dès que celle-ci touche la flamme (testée en ligne 
570), on en efface une partie (lignes 600 à 660). 


Lignes 800 à 930 : perdu et gagné 

Si le canadair a touché une flamme, on le fait descendre 
jusqu'au bas de l'écran. 

Mais si c'est gagné, on incrémente le niveau du jeu N 
avant de reprendre une autre partie. 
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CHENILLE 


Vous devez constituer une chenille en avalant tous les 
éléments apparaissant sur l'écran. Ils sont de deux sortes : 
les bons qui donnent un bonus (ceux qui sont rouges), et 
les autres qui en font perdre un (ceux qui sont violets). 


Le compte des bonus s'affiche en bas à droite de l'écran: il 
faut bien Sûr que ce compteur soit supérieur à 0 pour 
prétendre manger un « anti-bonus ». 


La chenille s'allonge à chaque élément qu’elle avale. Elle se 
déplace toute seule, le joueur devant modifier sa trajectoire 
avec les touches P et Q. 


Mais attention à ne pas heurter le bord du tableau ou 
enrouler entièrement la chenille sur elle-même ! 


À chaque tableau réussi succède un nouveau tableau 
comportant un nombre de plus en plus important 
d'éléments. Ne vous découragez surtout pas au premier 
tableau : la dextérité s’acquiert très vite. 
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a 
30 SYMBOL AFTER 128:GOSUB 1008 
40 DIM Y(201),X(201) 
50 E=0:TT=0 
69 RANDOMIZE TIME 
80 REM ------------- 
960 REM DESSIN DU JEU 
109 P=1:Q=1:1=0:E-=E+10:IF E>200 THEN E=200 
110 DX=0:DY=-1:X(1})}=20:Y(1)=12:B=0 
128 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,8:PAPER 
1:PEN 1:BORDER 1 
130 FOR I=1 TO 49 
140 LOCATE I,1:PRINT “ ":LOCATE I,23:PRINT " " 
150 IF I<23 THEN LOCATE 1,I:PRINT "“ ":LOCATE 40 , I: 
PRINT " * 
160 NEXT I:PAPER @ 
170 LOCATE X(1),Y(1):PRINT CHR$S(128) 
188 FOR I=1 TO EE 
190 Y=INT(RND#21)+2: X=INT(RND#38)+2 
200 IF TEST(X#16-8,408-Y*16)>0 THEN 1980 
210 IF I>E/2 THEN PEN 2:LOCATE X,Y:PRINT CHR$(130) 
ELSE PEN 3:LOCATE X,Y:PRINT CHR$(131) 
229 NEXT I 
230 PEN 1:LOCATE 2,24: PRINT"'POINTS:";TT; TAB(28).:"B 
ONUS: 0" 
240 IF INKEY$="" THEN 240 
280 REM -------- "2 
298 REM LE JEU 
300 DS=INKEYS:IF DS$="" THEN 380 
310 IF DY=0 THEN 350 
326 IF D$="Q" THEN DX=DY:GOTO 348 
330 DX=-DY 
340 DY=0:GOTO 388 
350 IF DS$="P" THEN DY=DX:GOTO 378 
366 DY=-DX 
370 DX=0 
380 LOCATE X(P),Y(P):PRINT CHR$S(129) 
390 AP=P:P=P+1:IF P=2902 THEN P=1 
400 X(P)=X(AP)+DX:Y(P)=Y(AP)+DY 
410 A=TEST(X(P)}#16-8,408-Y(P)#16):IF A<>Q@ THEN 500 
426 LOCATE X(Q),Y(Q):PRINT " "‘ 
430 Q=Q+1:1F Q=202 THEN Q=1 
440 LOCATE X(P),Y(P):PRINT CHR$(128) 
458 GOTO 300 
488 REM --------- 
490 REM ELEMENT RENCONTRE ? 
508 IF A=1 THEN 800 
510 IF A=2 THEN B=B+1:GOTO 558 
520 IF B=06 THEN 800 
530 B=B-1 
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550 T=T+1:TT=TT+1 

560 LOCATE 9,24:PRINT TT:LOCATE 35,24:PRINT B;" " 
570 IF T=E THEN 106 

580 GOTO 440 

D RE 

790 REM FIN 

808 LOCATE 9,24:PRINT TT:LOCATE 35,24:PRINT B.:" " 
818 LOCATE X(Q),Y{(Q):PRINT " " 

820 Q=Q+1:1F Q=202 THEN Q=1 

830 IF Q<>P THEN 810 

840 IF INKEYS<>CHRS(13) THEN 840 

850 RUN 

989 REM -----... 

990 REM GRAPHIQUES 

1800 SYMBOL 128,68,110,207,255,247,143,126,60 
1010 SYMBOL 129,68,126,255,255,255,255,126,66 
1920 SYMBOL 134,198,40,56,124,254,186,56, 238 

1030 SYMBOL 131,170,186,186,254,124,56,40,238 
1940 RETURN 


LISTE A couleur du point rencontré par la chenille 
ancienne valeur de P 
DES VARIABLES : !B nombre de bonus 

D$ dernière touche enfoncée 

DX et DY sens du déplacement en X et en Y de la 
chenille 

E nombre d'éléments à éliminer 

| indice de boucle FOR/NEXT 

P pointeur de la tête de la chenille dans X() et 
YO 

Q idem pour la queue de la chenille 

T nombre de points du tableau 

TT total des points de la partie 


X et Ÿ nombres aléatoires : coordonnées des bonus 
et anti-bonus 
X()etY()] coordonnées de chaque élément de la chenille 
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PROGRAMME Lignes 30 à 60 : initialisation 
Après la définition des caractères graphiques par le sous- 
programme en 1000, on dimensionne deux tableaux X et Ÿ 
pour connaître à tout moment la position des éléments qui 
composent la chenille. 


Le compteur E donne le nombre d'éléments à éliminer, 
tandis que TT compte le nombre de points de toutes les 
parties. 


La ligne 60'initialise les nombres aléatoires. On utilise pour 
cela la variable système TIME. Celle-ci étant toujours 
différente, on ne peut connaître sa valeur à l'avance. 


Lignes 100 à 240 : dessin du jeu 


Après l'effacement de l'écran et le dessin du cadre (lignes 
120 à 160), on affiche aléatoirement sur l'écran les deux 
sortes d'éléments (caractères graphiques 130 et 131). 


Lignes 300 à 450 : le jeu 


Si une touche est appuyée, on modifie en conséquence les 
incréments de direction DX et DY (lignes 300 à 370). Puis 
l'on affiche, à la place de la tête de la chenille pointée par la 
variable P, un élément du corps. 


Après l'incrément de P, on modifie le contenu de X(P) et 
Y(P) avec les incréments DX et DY (ligne 400). 


Si un élément est rencontré (testé par TEST en ligne 410), 
on va en 500 pour identification. 


Dans le cas contraire, on efface le dernier élément de la 
chenille pointé par la variable Q. Cette dernière variable est 
iIncrémentée dans la limite des tableaux X et Y. 


Pour terminer cette partie du programme, on affiche la tête 
de la chenille aux coordonnées pointées par P. 


Lignes 500 à 580 : élément rencontré 


Si l'élément rencontré est le bord ou la chenille (A=1), on 
va directement en ligne 800 pour la fin du jeu. 


Par contre, s'il s’agit d'un bonus, on incrémente le 
compteur B. Puisqu'il ne reste plus que les « anti-bonus » 
à tester, on va en ligne 800 pour la fin du jeu si le 
compteur B est à zéro. 

Dans l’autre cas, on décrémente la variable B. 

La variable T indique le nombre d'éléments déjà éliminés. 
On la compare donc à E pour connaître le moment de fin 
d'un tableau.Si ces deux variables sont égales, on va en 
ligne 100 où le compteur E est incrémenté de 10 pour le 
nouveau tableau (dans la limite de 200 éléments). 
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INCENDIE 


Après le lancement du programme, un décor se dessine 
instantanément sur l'écran. 


Dans le ciel, des étoiles et, au milieu de l'écran, une 
maison, une ambulance et deux pompiers. Ces derniers 
doivent rattraper tous les personnages (1, puis 2, puis 3, 
jusqu à 10) qui tombent de la maison en feu, et les mettre 
dans l'ambulance. 


Vous les manœuvrez aves les touches P et Q. 


Vous gagnez un point quand l’un des personnages atteint 
l'ambulance. Par contre vous perdez une des trois vies qui 
vous Sont données au départ quand l’un des bonhommes 
s'écrase au sol. De plus, au bout de 50 points, vous 
gagnez une nouvelle vie. 


De quoi peut-être faire naître une vocation ! 
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19 REM INCENDIE 
REM 
30 SYMBOL AFTER 128:DIM X(15),Y(15),C(15):GOSUB 11 


40 RANDOMIZE TIME 

90 MODE 1:INK 06,3:INK 1,0:INK 2,15:INK 3,2:PAPER @ 
: PEN 1: BORDER 3: GOSUB 900 

69 N=1:P=1:S-=2:T=0 

70 IF INKEY$S="" THEN 70 

1886 REM ---------------_ 

190 REM LE JEU 

298 GOSUB 800 

219 PEN 1:LOCATE 11,22:PRINT AS(P) 

220 FOR I=1 TO N 

230 P(I)=0 

249 NEXT I 

250 FOR I=1 TO N 

268 IF I=1 THEN 290 

270 IF P(I-1)=4 THEN LOCATE 9,13+INT(RND+0. 5)#4:PR 
INT CHR$(132) 

280 IF P(I-1)<6 THEN 440 

290 IF P(I)}>14 THEN 449 

300 AS=INKEYS 

310 P=P+(AS$="P"}#(P<3)-(AS="Q")*(P>1) 

320 LOCATE 11,22:PRINT AS(P) 

330 IF P(I)=0 THEN LOCATE 9,13:PRINT " ":LOCATE 9, 
17:PRINT "“ "“:GOTO 359 

346 LOCATE X(P(I)}),Y(P(I)):PRINT " " 

350 P(I)=P(I)+1 

360 IF P(I)<>15 THEN 390 

3706 T=T+1:IF T/SO6=INT(T/50) THEN S=S+1:GOSUB 808 
380 PEN 2:LOCATE 1,1:PRINT T;CHR$S(7);:PEN 1:GOTO 4 
40 

398 LOCATE Une Y(P(I)):PRINT CHR$S(128+C(P(I))) 
408 FOR 2e 1 TO =N 

418 IF J- EN a INKEY$S:P=P+(AS$S="P")#(P<3)-(AS=" 
QM)#(P> 1): LOCATE 11,22:PRINT AS(P) 

420 NEXT 

430 IF Rae 21 THEN SOUND 1,500,2:IF TEST(X(P(I 
))#16-8,58)-0 THEN 608 

440 NEXT I 

459 FOR J=1 TO N 

468 IF P(J}<15 THEN 258 

470 NEXT J 

486 N=N+1:IF N>10 THEN N=10 

498 GOTO 288 

580 REM -------------- 

590 REM PERDU 

608 LOCATE X(P(I)),21:PRINT " " 

619 LOCATE X(P(I1)),22:PRINT CHR$(131) 

628 SOUND 1,426,2-: SOUND 1,4/78,2: SOUND 1,379,2 

630 S=S-1: GOSUB 8090 

648 P(I)=16 
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658 


660 FOR 1-50 TO 50@ STEP 5: SOUND 1,1,2:NEXT 

670 IF INKEYS<>CHRS(13) THEN 670 ELSE 50 

DO RE 

790 REM AFFICHE LES VIES 

806 PEN 3:LOCATE 33,1:PRINT" ù 

810 FOR J=1 TO S 

820 LOCATE 32+J,1:PRINT CHRS(132);" 

830 NEXT J 

840 PEN 1:RETURN 

889 REM ------------- 

890 REM DESSIN DU JEU 

908 PLOT 8,238:DRAW 126,238:DRAW 126,48:DRAW ©, 48: 
DRAW 0,238 

918 PLOT 126,190:DRAW 144,198:DRAW 144,198 

920 PLOT 126,126:DRAW 144:126:DRAW 144.134 

930 PLOT 48,222:DRAW 80,222: DRAW 80,1986:DRAW 48,19 
0:DRAW 48,222 

949 PLOT 48,158: DRAW 80,158: DRAW 80,126: DRAW 48, 12 
6:DRAW 48,158 

950 LOCATÉE 24,21:PRINT CHR$(135)CHRS(136) 

968 LOCATE 24,22:PRINT CHRS5(137)CHRS(138) 

970 FOR I=1 TO 10 

980 LOCATE 1+RND#40,1+RND*8: PRINT "x" 

99@ NEXT I 

1000 RETURN 
DORE 

1098 REM GRAPHIQUES 

1108 SYMBOL 128,56,186,146,126,56,40, 38,48 

1118 SYMBOL 129,2,116,228,88,29,111,6,0 

1120 SYMBOL 130,0,8,17,223,248,221,19,16 

1130 SYMBOL 131,54,20,20,28,127,73,93,93 

1140 SYMBOL 132,28,29,9,63,92,92,20,22 

1150 SYMBOL 133,129,66,68,0,0,8,0,0 

1168 SYMBOL 134,56,184,144,252,58. 42,40, 232 

1170 SYMBOL 135,0,2,1,0,255,128,140,158 

1180 SYMBOL 136,0,0,0,128,240,72,68 66 

1190 SYMBOL 137,158,140,128,176,200. 255,120, 48 
1208 SYMBOL 138,127,1,1,25,37,255,60, 24 

1218 AS(1)=CHR$S(132)+CHRS(133)+CHRS(134)+" 

1220 AS(2}=" "+CHRS(132)+CHRS(133)+CHRS(134)+" 
1230 A$(3)=" "+CHRS(132)+CHRS(133)+CHRS(134 
) 

1248 FOR I=1 TO 14 

1250 READ X(I),Y(I),C(I) 

1260 NEXT I 

1270 RETURN 

1280 DATA 10,15,1,11,18,2,12,21,3,13,18,2 

1290 DATA 14,15,1,15,18,2,16,21,3,17,18.2 

1300 DATA 18,15,1,19,18,2,20,21,3,21,18,2,22,15,3, 
23,18,2 


IF S>-1 THEN 440 
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PROGRAMME 


Lignes 30 à 70 : initialisation 

Pour connaître la position des personnages et les 
caractères graphiques qui s’y rapportent, on dimensionne 
trois tableaux X, Ÿ et C. Ceux-ci sont remplis par le sous- 
programme 1100. C'est aussi ce sous-programme qui 
définit les caractères graphiques. 


Lignes 200 à 490 : le jeu 


Le sous-programme en 800 affiche des personnages en 
haut de l'écran pour indiquer au joueur le nombre de vies 


restantes. 


Chaque personnage a une position bien déterminée 
contenue dans le tableau P. Celui-ci est donc remis à zéro 
aux lignes 220 à 240. 


La variable N donnant le nombre de personnages à 
récupérer, on effectue cette boucle de 1 à N le nombre de 
fois qu'il faut pour qu'ils soient tous dans l’ambulance. 


Les personnages apparaissent au balcon uniquement si le 
précédent a déjà couvert quatre positions (ligne 270), et ils 
sautent uniquement quand le précédent en est à six 
positions (ligne 280). 


Le caractère saisi par INKEYS en ligne 300 permet de 
déterminer la position du drap (variable P). On utilise pour 
cela une expression logique pour modifier la valeur de P 
(ligne 310). Pour permettre de bouger plus rapidement le 
drap, on répète cette ligne en 410. 


Quand un personnage atteint la position 15 (l'ambulance), 
on incrémente le compteur de points T (ligne 370). SiT est 
divisible par 50, on ajoute une vie (compteur S). 


Dans le cas où un personnage arrive sur le sol, on teste 
par la fonction TEST la présence du drap (ligne 430). Si la 
couleur trouvée à cet endroit est O (un blanc), on va à la 
ligne 600 pour la fin du jeu. 


Les lignes 450 à 470 testent si tous les personnages sont 
dans l’ambulance. Si ce n’est pas le cas, on revient en 
ligne 250. Tous les personnages étant arrivés à bon port, 
on incrémente le compteur N pour en agrandir la famille au 
prochain tour (ligne 480). 
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LISTE | AS0 dessin du drap pour les trois positions 
C() pointeurs des caractères graphiques de 
DES VARIABLES : chaque position des personnages 
indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
nombre de sauvetages à effectuer 
position du drap 
position de chaque personnage 
nombre de vies 
nombre de points 
XO et Y() toutes les coordonnées possibles des 
personnages. 


ANTUTUZ— 
En, 
—” 
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COURSE 
AUTOMOBILE 


Eviterez-vous la voiture infernale de l'ordinateur qui roule 
en sens inverse, tout en passant sur chaque portion du 
circuit ? 


Deux commandes sont nécessaires à votre déplacement ; 
la touche P pour vous diriger vers le centre et la touche Q 
pour aller vers l'extérieur. 


Dès le début de la course, trois parties gratuites vous sont 
allouées. Chaque déplacement donne un point. Les points 
Sont affichés en haut de l'écran à chaque déplacement vers 
le centre ou vers l'extérieur. Si vous passez sur toutes les 
portions du circuit, une nouvelle piste s'affiche avec le 
total général et le jeu reprend de plus belle. 


Bonne chance. et pas d’imprudence ! 


TOTAL: 288 SCORE: 98 NN 
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10 REM COURSE AUTOMOBILE 

29 REM --------- "2 "0 2 
30 SYMBOL AFTER 128:GOSUB 1300 

48 DEFINT A-Z 

50 GOSUB 1100 

69 X(8)=1:X(2)=-1:Y(1)=1:Y(3)=-1 


78 PG=3 
80 FOR I=1 TO PG 
90 LOCATE 31+Ix2,1:PRINT CHR$(132)CHRS(133)" et 


OCATE 31+1*x2, 2:PRINT CHR$S(134)CHRS(135)" à 

104 NEXT ]I 

119 S=0:S0=3 

126 X=8:Y=4:X0=32:Y0=23 

1304 L=5:10=5:D=0:A=32 

184 REM ---------- 

194 REM LE JEU 

08 PEN 2:LOCATF X,Y:PRINT CHR$S(136):PEN 1 

214 X=X+X(S):Y=Y+Y(S) 

2298 IF TEST(X*16-8,406-Y»x16)-=-@ THEN G=G+1:If G=279 
THEN 800 

230@ LOCATE X,Y:PRINT CHR$S(S+128) 

240 PEN 2:LOCATE XO,YO:PRINT CHR$S(A):PEN 1:X0=XO0+X 
(S0):YO=YO+Y(S0O) 

250 A=TEST(XO*16-8,496-YO*16):LOCATE XO,YO:PRINT C 
HR$S(S0O+128):IF A=2 THEN A=136 ELSE A=32. 

260 IF L<LO THEN D=3 

270 IF L>LO THEN D=1 

288 IF D<>@ AND TEST((XO+X{((S0+D) MOD 4))*16-8,406 
-(YO+Y((SO+D) MOD 4))}#16)=0 AND TEST((XO+X(S0))#*16 
-8,406-(YO+Y(SO))*16)<>3 THEN 708 

298 Z=TEST((X+X(S))#16-8,406-(Y+Y(S))*16):1F Z=17T 
HEN 800 

300 IF 7=0 OR Z=2 THEN 328 

319 S=(S+1) MOD 4 

320 B$S=INKEYS:-IF BS<>"" THEN CS=BS 

330 IF C$S="P" THEN 500 

340 IF C$="Q" THEN 680 

350 Z=TEST((XO+X(S0))#16-8,406-(YO+Y(SO))*16):1IF Z 

=0 OR 7=2 THEN 208 

368 S0=(S0+3) MOD 4 

3/70 GOTO 208 

480 REM ----------- 

49Q RFM DEPLACEMENT CENTRE 

900 IF TEST((X+X((S+1) MOD 4))#16-8,406-(Y+Y((S+1) 
MOD 4))*16)<>0 THEN 358 

910 SOUND 1,2900,1:PEN 2:LOCATE X,Y:PRINT CHR$S(136) 
: PEN 1 

9208 X=X+X((S+1) MOD 4)+X((S+1) MOD 4):Y=Y+Y((S+1) 

MOD 4)+Y{((S+1}) MOD 4) 

930 L=L-1-:1IF L<1 THEN L=1 

540 IF TEST(X*16-8,406-Y*16)=-Q THEN G=G+1 
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550 LOCATE 25,1:PRINT G 

569 C$="":GOTO0O 350 

500 REM == sessssemmenereseses 

590 REM DEPLACEMENT EXTERIEUR 

600 IF TEST((X+X((S+3) MOD 4)}*16-8,406-(Y+Y((S+3) 
MOD 4))}*16)<>0 THEN 350 

618 SOUND 1,58,1:PEN 2:LOCATE X,Y:PRINT CHR$(136): 
PEN 1 

620 X=X+X((S+3) MOD 4)}+X((S+3) MOD 4):Y=Y+Y((S+3) 

MOD 4)+Y((S+3) MOD 4) 

630 L=L+1 

640 IF TEST(X*16-8,406-Y*16)-0 THEN G=G+1 

650 LOCATE 25,1:PRINT G 

668 C$="":G0OT0 350 

ÉRONREM ennemie Rene 

690 REM DEPLACEMENT AMSTRAD 

7008 PFN 2:LOCATE XO,YO:PRINT CHRS(A):PEN 1! 

710 XO=XO+X((SO+ND) MOD 4)+X((S0+D) MOD 4):YO=YO+Y({ 
(SO+D) MOD 4)+Y((S50+D) MON 4) 

720 IF D=1 THEN LO=L0+1 ELSE LO=LO-1 

730 D=8:A=TEST(XO#16-8,406-YO*16):IF A=2 THEN A=13 
6 ELSE A=32 

748 GOTO 298 

7804 REM ----------mm mm = 

790 REM FIN DE PARTIE 

800 PEN 2:LOCATE XO,YO:PRINT CHRS(A):LOCATE X,Y:PR 
INT CHR$S(136):PEN ! 

810 IF G=279 THEN G=280:PG=PG+1:FOR I1=508 TO 50 ST 
EP-5: SOUND 1,1,2:NEXT ELSE FOR I=-508 TO 500 STEP 5: 
SOUND 1,1,2:NEXT 

820 PG=PG-1:TP=TP+G: G=0:LOCATE 4,1: PRINT"'TOTAL:";T 
p | 

839 FOR I=3 TO 12 STEP Z:FOR J=08 T0 30-I+2 

840 LOCATE I+5+J,I+1:PRINT" ":LOCATE I+5+J,27-I:P 
RINT" "IF J<26-I#2 THEN LOCATÉE I+5,1I+J+1:PRINT" " 
:LOCATE 35-I,1I+9+1:PRINT" 

850 NEXT:NEXT | 

860 IF PG=0 THEN 1008 

8/0 GOTO 80 

980 REM --------------- Free 

998 REM FIN DU JEU 

1009 LOCATE 33,1:PRINT "  ":LOCATE 33,2:PRINT " ‘" 
1010 LOCATE 16,14:PRINT"'GAME OVER" 

1020 IF INKEYS<>CHRS(13) THEN 1020 

1930 RUN 

LODQ REM rss 

1490 REM DESSIN OÙ JEU 

1100 MODE 1:INK @0,1:INK 1,24:INK 2,6:INK 3,15:PAPE 
R 3:PEN 1:BORDER 1! 

1110 FOR I=2 TO 13 STEP 2:FO0R J=06 TO 30-I+2 
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1120 LOCATE I+5+9J,I+1:PRINT" ":LOCATE I+5+J,27-1:P 

RINT" ":IF J<26-I#2 THEN LOCATE 1+5,1+9J+1: PRINT" * 
: LOCATE 35-I,I+J+1:PRINT" * 

1130 NEXT:NEXT 

1140 PAPER 9: LOCATE 9,14:PRINT" ":LOCATE 25, 
14: PRINT" 

1150 FOR I=5 TO 12 

1160 LOCATE 28,I:PRINT “ "“:LOCATE 20,1+12:PRINT " 


1176 NEXT I 

1180 LOCATE 19,1:PRINT"SCORE: " 

1190 RETURN 

1280 REM -------"--"" 
1290 REM GRAPHIQUES 

1300 SYMBOL 128,224,231,66,255,255,66, 231, 224 
1319 SYMBOL 129,219, 255,219, 24: 24, 00,126, 90 
1320 SYMBOL 130,7,231,66,255,255, 66,231, 7 
1330 SYMBOL 131,906,126,90,24,24,219 255.219 
1348 SYMBOL 132,12,14,27,53,106, 213,170. 213 
1350 SYMBOL 133,0,0,0,128,192,96,240,152 
1368 SYMBOL 134,107,53,26,14,4,0.0,0 

13706 SYMBOL 135,12,6,3,1,0,0,0.0 

1380 SYMBOL 136,0,0,0,24.24,0,0,0 

1398 RETURN 
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PROGRAMME 


Lignes 30 à 380 : le jeu 


Après l'initialisation des graphiques et du dessin du jeu 
(sous-programme en 1300 et 1100), on affiche en haut de 
l'écran le nombre de parties gratuites. 


La ligne 200 place un point sur la position du joueur. 


Si la nouvelle position comporte un espace (TEST=0), on 
incrémente le compteur de points G. Si G=279 on va en 
800 pour une nouvelle partie. 


On répète la même séquence pour la voiture de 
l'ordinateur. 


Les variables L et LO donnant le numéro de piste (L=5 
pour la piste extérieure et L=1 pour la piste intérieure) on 
place dans D le sens du déplacement de l'ordinateur (D=3 
pour l'intérieur et D=1 pour l'extérieur). Dans le cas où D 
est différente de zéro et qu'une case blanche est adjacente, 
on va en 700 pour le déplacement d'Amstrad. 


Si la voiture du joueur rencontre celle de l'ordinateur (ligne 
290), on saute à la fin de partie (ligne 800). 


La touche appuyée (stockée dans B$) est gardée en 
mémoire dans la variable C$ jusqu'au prochain carrefour. 
Les lignes 330 et 340 orientent alors sur les parties 
concernées du programme. 


Lignes 500 à 560 : déplacement centre 


La touche P étant appuyée, on déplace la voiture du joueur 
vers le centre dans le cas où il existe une case blanche 
adjacente (TEST=0). 

Puis l'on incrémente les variables X,Y et l’on décrémente 
le compteur L pour que l'ordinateur sache sur quelle piste 
on se trouve. 


La ligne 550 affiche le nombre de points acquis. 


Lignes 600 à 660 : déplacement extérieur 
identiques aux lignes 500 à 560 mais pour l'extérieur. 


Lignes 700 à 740 : déplacement d’Amstrad 


La variable D (sens du déplacement de la voiture du 
joueur) étant différente de zéro, on déplace la voiture 
d'Amstrad vers l'extérieur (si D=1) ou vers l'intérieur (si 
D=3). 

Puis l'on incrémente les variables XO, YO et le compteur 
LO pour que l'ordinateur sache sur quelle piste il se trouve. 


Lignes 800 à 870 : fin de partie 


Si la voiture du joueur a rencontré celle de l'ordinateur ou 
si toutes les portions du circuit ont été couvertes, on 
affiche le score total et l’on efface les points pour une 
nouvelle partie. 
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LISTE 
DES VARIABLES : 


Lignes 1000 à 1030 : fin du jeu 


Comme il ne reste plus aucune partie gratuite (variable 
PG), on affiche un nouveau jeu dès que la touche ENTER 
est enfoncée. 


A contient le caractère qui effacera la voiture 
d'Amstrad au prochain déplacement 

B$ dernière touche enfoncée 

D différence entre le joueur et Amstrad 

G nombre de points dans une partie 

| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

L numéro de la piste du joueur 

LO numéro de la piste d’Amstrad 

PG nombre de parties gratuites 

S sens du déplacement du joueur 

S0 sens du déplacement d'Amstrad 

TP total des points 

XetY coordonnées de la voiture du joueur 


X0 et YO coordonnées de la voiture d'Amstrad 

X()et Y() nombre de caractères de déplacement dans 
les 4 directions 

Z couleur devant la voiture du joueur ou 
d'Amstrad 
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MOTOS 
LUMINEUSES 


Votre moto déjouera-t-elle les pièges tendus par celle 
d'Amstrad ? 


Les motos laissent une trace lumineuse derrière elles. I 
faut donc éviter non seulement la trace de l'adversaire, 
mais aussi celle de votre propre moto. Celle-ci se dirige 
avec les touches P et Q du clavier. 


Vous aurez besoin de beaucoup de dextérité pour enfermer 
la moto de l'ordinateur de manière à ce qu'elle revienne sur 
elle-même ou touche le bord de l'écran. 


À chaque fin de partie, les scores du joueur et d'Amstrad 
s'affichent en bas de l'écran, et le jeu reprend pour mettre 
une fois de plus vos réflexes à dure épreuve. 
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10 REM MOTOS LUMINEUSES 

2Q REM ------------- 2 

30 SYMBOL AFTER 128 

40 MODE 1:INK 9,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
1: BORDER 1:GOSUB 700:PAPER @ 

50 RANDOMIZE TIME 

60 X(8)=-1:X(2)=1:Y(1)=1:Y(3)=-1 

70 X1=20:Y1=21:D1=3:X2=20:Y2=11:D2=INT(RND+4) 

89 N=0:N1-=-0:N2-0 

180 REM -------------- 

190 REM LE JEU 

200 AS=INKEYS 

219 IF A$="Q" THEN D1=(D1+1)MOD 4 

220 IF A$="P" THEN D1=(D1+3)MOD 4 

230 X1=X1+X(D1):Y1=Y1+Y(D1) 

240 IF TEST(X1#16-8,408-Y1*16)<>9 THEN 618 

290 PEN 2:LOCATE X1,Y1:PRINT CHRS(129) 

269 IF TEST((X2+X(D2))#16-8,408-(Y2+Y(D2))#*16)<>0 
OR N>N2 THEN GOSUB 400 ELSE NI1=RND+8 

270 X2=X2+X(D2):Y2=Y2+Y(D2) 

280 PEN 3:LOCATE X2,Y2:PRINT CHR$(129) 

290 N=N+INT(RND#?):GOTO 2080 

380 REM --------------- 

390 REM MOUVEMENTS DE L'ORDINATEUR 

408 N=0:N2=N2+N1 

410 IF X(D2)=@ THEN 470 

420 IF Y<1@ AND N1<6 THEN 449 

430 IF TEST(X2*16-8,408-(Y2-1)#16)=0 THEN D2=3: GOT 
0 520 
440 IF TEST(X2#*16-8,408-(Y2+1})*16)=0 THEN D2=1:GOT 
0 528 


450 IF TEST(X2#16-8,408-(Y2-1)#16)=0 THEN D2=3: GOT 
0 520 


468 GOTO 518 

470 IF X>30 AND N1<6 THEN 490 
480 IF TEST((X2+1)*16-8,408-Y2#16)=0 THEN D2=2: GOT 
0 520 
490 IF TEST((X2-1)*16-8,408-Y2*16)=0 THEN D2=0: GOT 
0 520 


500 IF TEST((X2+1})#16-8,408-Y2#16)=0 THEN D2=2:GOT 
0 528 


510 IF TEST((X2+X(D2))#16-8,408-(Y2+Y(D2))}#16)<>0 
THEN 600 

52@ RETURN 

RE 

590 REM FIN DE PARTIE 

608 T1=T1+1:GOTO 628 

619 T2=T2+1 

620 PEN 3:LOCATE 1,25:PRINT "  VOUS:";T1, TAB(28);" 
AMSTRAD: "; T?: 

630 IF INKEYS<>CHRS(13) THEN 630 
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648 GOTO 40 

680 REM ------------------------------- 

696 REM DESSIN DU JEU 

706 SYMBOL 128,136,17,34,68,136,17,34,68 

716 SYMBOL 129,85,170,85,178,85,170,85,170 

7206 FOR I=1 TO 48 

736 LOCATE I,1:PRINT “ ":LOCATE I,24:PRINT * * 

740 IF I<25 THEN LOCATE 1,I:PRINT * ":LOCATE 40,1: 
PRINT * “ 

758 NEXT I 

769 PAPER 6:PEN 3:LOCATE 1,25:PRINT “ VOUS:";T1;T 
AB(28); "AMSTRAD:";T2;: 


779 RETURN 
LISTE A$ dernière touche enfoncée 
DTetD2 direction prise par le joueur et l'ordinateur 
DES VARIABLES : (dans les tableaux X et Y) 
| indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 


N, Net N2 drapeaux pour déterminer la meilleure 
direction à prendre par l'ordinateur 

Ti et T2 total des points du joueur et de l'ordinateur 

X1, X2, Y1 coordonnées des motos du joueur et de 

et Y2 l'ordinateur 

X() et Y() nombre de caractères de déplacement dans 
les 4 directions 
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PROGRAMME Lignes 30 à 80 : initialisation 
Après le dessin du jeu et la définition des caractères 
graphiques par le sous-programme en 700, on place dans 
les tableaux X() et Y() le nombre de caractères de 
déplacement pour les quatre directions. 


Lignes 200 à 290 : le jeu 


Le caractère saisi au clavier étant stocké dans la variable 
A$, on modifie suivant sa valeur la variable D1. On utilise 
pour cela une fonction modulo (MOD) qui évite le test IF 
THEN beaucoup trop long. Di=(D1+3) MOD 4 remplace 
D1=D1-1 : IF D1=—1 THEN D1=3 et D1=(D1+1) MOD 
4 remplace D1=D1+1 : IF D1—4 THEN D1=0. 


Si là moto du joueur rencontre celle d'Amstrad ou le bord 
de l'écran, le programme va en 610 pour la fin de la partie. 
Dans le même cas, pour la moto de l'ordinateur, on va en 
400 pour trouver une solution. 


Lignes 400 à 520 : mouvements de l’ordinateur 


La moto d'Amstrad ayant rencontré un obstacle, le 
programme cherche une nouvelle direction. S'il n'y a plus 
de solution, le programme saute à la ligne 600 pour la fin 
de partie. 
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Quoi de plus propice qu’une bonne piste de ski pour 
SLALOM | Sxercer ses talents d’agilité et d'endurance ? 


En lançant le programme, vous vous retrouverez 
directement parmi les sapins pour le slalom le plus long du 
monde. 


Le skieur se manœuvre à l’aide des flèches droite et 
gauche. Le nombre de points gagnés s'inscrit selon les 
conditions suivantes : une porte passée vaut un point et 
une porte ratée fait perdre cinq points. Le score s'affiche 
en permanence en haut à gauche de la piste. 


Alors, prêts pour une descente ? 
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19 REM SLALOM 

20 REM ------------------ 

30 SYMBOL AFTER 128: GOSUB 1408 

40 MODE 1:INK 0,13:INK 1,0:INK 2,6:INK 3,18:PAPER 
@:PEN 1:BORDER 13 

50 X=208:C=242 

00 RM === ressens 

98 REM LE JEU 

100 A=INT(RND#15)+12 

119 IF TEST(X#16-8,368)<>0 OR TEST((X+1}*16-8,360) 
<>0 THEN 408 

120 IF T/8<>INT(T/8) THEN 160 


130 PEN 2:LOCATÉ A,25:PRINT CHRS(140)" "CHRS( 
148) 

140 PEN 1:SYMBOL 142,A:PRINT CHR$(142)::PEN 2:PRIN 
T TAB(A);CHRS(141)" “CHRS(141) 


150 GOTO 206 

160 IF T/G<>INT(T/6) THEN 190 

170 PEN 3:LOCATÉ A,25:PRINT CHR$S(136)CHRS(137):PRI 
NT TAB(A);CHRS(138)CHRS(139) 

180 GOTO 208 

198 LOCATE 1,25:PRINT:PRINT 

208 T=T+1:PEN 2:LOCATE 36,1:PRINT V:PEN 1 

210 CS=INKEYS:IF C$<>"" THEN C=ASC(CS) 

220 IF C=242 THEN LOCATE X,1:PRINT CHR$(128)CHRS (1 
29)" ":LOCATE X,2:PRINT CHR$(138)CHRS(131)" ":IF X 
>11 THEN X=X-1 

230 IF C=243 THEN LOCATE X-1,1:PRINT " "CHRS(132)C 
HR$(133):LOCATE X-1,2:PRINT " "CHRS(134)CHRS (135): 
IF X<29 THEN X=X+1 

240 P=@:FOR I=14 TO 6 STEP-2:IF TEST(14-1,382)=1 T 
HEN P=P+21(1/2) 

258 NEXT I:IF P=0 THEN 100 

260 IF X>=P AND X<P+7 THEN V=V+1:GOTO 100 

27@ V=V-5:GOTO 108 

380 REM ---------""""""""""""" ""  " " 

398 REM PERDU 

490 PEN 2:LOCATE 36,1:PRINT V 

410 FOR I=50 TO 508 STEP 5: SOUND 1,1,2:NEXT 

428 IF INKEYS<>CHRS(13) THEN 429 

438 RUN 

D60 REM == "0. 

998 REM GRAPHIQUES 

1008 SYMBOL 128,3,3,1,7,15,11,19,11 

18610 SYMBOL 129,128,128,0,192,224,160,192,160 

1020 SYMBOL 130,6,3,2,2,3,2,21,18 

18030 SYMBOL 131,148,168,212,160,192,128,0,0 

1849 SYMBOL 132,1,1,0,3,7,5,3,5 

1050 SYMBOL 133,192,192,128, 224,240, 208, 200,208 
1068 SYMBOL 134,41,21,43,5,3,1,0,0 

1978 SYMBOL 135,96,192,64,64,192,64,168, 88 

1880 SYMBOL 136,0,0,1,3,7,15,15,31 

1098 SYMBOL 137,0,0,8,128,192,224, 224,240 

1189 SYMBOL 138,63,63,127,255,3,3,3,0 

1118 SYMBOL 139,248,248,252,254 128, 128,128,0 

1120 SYMBOL 140,1,3,7,15,31,63,1,1 

1130 SYMBOL 141,1,1,1,1,1,1,1,1 

1140 RETURN 


_ 


a 


_ 


Super jeux Amstrad 


41 


PROGRAMME 


LISTE 


DES VARIABLES : 
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| 


Lignes 30 à 50 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en 1000, la ligne 50 initialise à 20 la position 
de départ du skieur sur l'écran (variable X). 


Lignes 100 à 270 : le jeu 


Le nombre aléatoire contenu dans A donne la position sur 
l'écran des prochains piquets ou sapins (ligne 100). 


Avant d'afficher sapins ou piquets, on teste par la fonction 
TEST si l'écran est vide devant le skieur. Si ce n’est pas le 
cas, on Va en 400 pour la fin du jeu. 


Le compteur T indique au programme le nombre de lignes 
déjà passées. Si celui-ci est divisible par 8, on affiche à 
l'écran deux piquets à partir de la position donnée par À 
(lignes 120 à 150). Dans la première colonne de cette 
ligne, on affiche un caractère de code A pour connaître par 
la suite la position des piquets. 


Par contre, si le compteur T est divisible par 6, on effectue 
la même opération mais cette fois-ci pour un sapin (lignes 
160 à 180). 


ouivant le code du caractère saisi dans la variable C$, on 
affiche à la position X un skieur vers la droite ou vers la 
gauche et l'on incrémente ou l’on décrémente X de la 
même façon. 


La ligne 240 teste le premier caractère de la ligne pour 
détecter la présence des piquets. Si c'est le cas on 
compare ce caractère avec la position du skieur. En dehors 
des limites des piquets, on décrémente de 5 le compteur 
de points V, sinon on l’incrémente de 1. 


A nombre aléatoire : position des piquets ou 
sapins 

sens du déplacement 242 = gauche, 243 — 
droite 

C$ dernière touche enfoncée 

indice de boucle FOR/NEXT 

caractère sur le bord de l'écran. Indique la 
présence des piquets 

nombre de lignes déjà passées 

nombre de points 

position du skieur 


| ap 


PE En À TU — 
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LE BLOB 


Il s'agit de bloquer dans le coin en haut à gauche un Blob 
qui rebondit sur les bords de l'écran. 


Pour l'amener à cet endroit précis, vous devez construire 
un mur en vue de réduire le plus possible son champ de 

rebond. Les briques se dessinent avec les quatre flèches 
de déplacement et s’effacent en appuyant simultanément 
sur SHIFT et l'une des quatre flèches. 


Vous avez 5000 fractions de seconde pour neutraliser le 
Blob et le temps restant constituera votre score. 


SCORE: 2940 
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18 REM BLOB 

2@ REM ------------ 

30 SYMBOL AFTER 128:MODE 1:INK @,1:INK 1,24:INK 2, 
6:INK 3,15:PAPER 1:PEN 1:BORDER 1 


98 


SYMBOL 128,128,64,34,18,10,6,62,1 

SYMBOL 129,60,126,255,255,255,255,126, 60 
SYMBOL 130,255,129,129,129,129,129,129,255 
SYMBOL 131,93,93,89,127,28,28,20,119 

FOR I=1 TO 48 

LOCATE I,1:PRINT" ":LOCATE I,22:PRINT" " 


100 IF I<22 THEN LOCATE 1,I:PRINT" ":LOCATE 48,I:P 


RINT" » 

110 NEXT I:PAPER 0 

126 RANDOMIZE TIME 

130 LOCATE 1,1:PRINT CHR5(128) 

148 X=INT(RND*30)+6: Y=INT(RND*17)+5 

159 C=160:T-5008:V=6:W=6:H=1:D-1:F=0 

168 LOCATE 16,24:PRINT "SCORE: " 

176 GOTO 428 

D OU RE 

290 REM DEPLACEMENT JOUEUR 

3006 IF TEST(46,352)>0 AND V=2 AND W=2 THEN 800 

310 T=T-10:LOCATE 22,24:PRINT T;" ":IF T=0 THEN 70 
320 AS=INKEYS:IF AS="" THEN 500 

3386 AX=0: AY=0 

340 IF AS=CHRS(242) THEN C=1:AX=-1 

359 IF AS=CHRS(243) THEN C=1:AX=1 

360 IF A$=CHRS(241) THEN C=1:AY=1 

376 IF AS$=CHR$S(240) THEN C=1:AY=-1 

380 IF AS=CHRS(246) THEN C=2:AX=-1 

390 IF AS$=CHRS(247) THEN C=2:AX=1 

408 IF A$=CHRS(244) THEN C=2:AY=-1 

410 IF AS=CHRS(245) THEN C=2:AY=1 

420 IF TEST((X+AX)*16-8,400-(Y+AY)*16)=1 THEN 500 
430 PEN 2:1F C=1 THEN LOCATE X,Y:PRINT CHR$(130) E 
LSE LOCATE X,Y:PRINT" " 

449 PEN 3:X=X+AX:Y=Y+AY:LOCATE X,Y:PRINT CHR$(131) 
DRE à 

498 REM MOUVEMENT DU BLOB 

500 IF TEST((V+H)*16-2,400-(W+D)#16)=0 THEN 540 
510 IF TEST((V+H)#16-2,400-W=16)<>@ AND TEST(V*16- 


2,480-(W+D)#16)<>0 THEN D=-D:H=-H:GOTO 308 
920 IF TEST((V+H)#16-2,400-W*16)=0 THEN D=-D:IF TE 
ST((V+H)#16-2,408-(W+D)#16)=0 THEN 548 


530 
540 
550 
560 
5/0 
680 
690 
700 
710 
720 
780 
790 
808 
810 
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H=-H:GOTO 300 

LOCATE V,W:PRINT * * 

V=V+H:W=W+D 

PEN 1:LOCATE V,W:PRINT CHR$(129) 

GOTO 380 

REM --------- 2 

REM PERDU 

FOR I=59 TO 506 STEP 5:SOUND 1,1,2:NEXT 
IF INKEYS<>CHRS(13) THEN 710 

RUN 

REM --------- 2 

REM GAGNE 

FOR I=500 TO 56 STEP-5:SOUND 1,1,2:NEXT 
GOTO 710 
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PROGRAMME | Lignes 30 à 170 : initialisation 
Après la définition des caractères graphiques, on initialise 
les diverses variables (voir liste des variables). 
Lignes 300 à 440 : déplacement du joueur 
Si le Blob est coincé en haut à gauche (V=1 et W=1), le 
programme va à la ligne 800 pour la phase « gagné ». 
À chaque passage dans cette partie du programme, on 
décrémente le compteur T de 10 points. Si celui-ci est à 
zéro, on va en ligne 700 pour la fin de partie. 


La touche appuyée étant stockée dans la variable A$, on 
modifie les variables AX, AY et C en fonction de celle-ci. 


Lignes 500 à 570 : mouvement du Blob 


On déplace continuellement le Blob à 45° sur l'écran tant 
que l'on ne rencontre pas d’obstacle (bord de l'écran ou 
mur construit par le joueur). Sinon on modifie les 
incréments D et H pour prendre une nouvelle direction. 


LISTE | A$ dernière touche appuyée 
AX et AY déplacement en X et en Ÿ du joueur 
DES VARIABLES : | c type de caractère à afficher : C=1 pour les 
briques, C=2 pour effacer les briques 
DetH direction prise par le Blob 
| indice de boucle FOR/NEXT 
J indice de boucle FOR/NEXT 
T nombre de points 
VetW coordonnées du blob 
X et Y 


coordonnées du joueur 
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PETROLE, 
PETROLE ! 


Dans le cadre des économies d'énergie, le conducteur 
d'une voiture doit faire le plus de kilomètres possible avec 
une quantité limitée d'essence. 


La voiture est dirigée avec les touches P et Q. Elle doit 
parcourir 400 kilomètres pour passer au tableau suivant. 


Mais si, au premier tableau, chaque déplacement vaut trois 
kilomètres, il n’en vaut plus que deux au deuxième et un 
au troisième et suivants. Attention ! Repasser aux mêmes 
endroits vous fait perdre autant de kilomètres. 


Le nombre de kilomètres par tableau et le total général 
s'affichent en bas de l'écran ainsi que le contenu du 
réservoir, sachant que chaque passage à la pompe permet 
un réapprovisionnement de 10 litres. 


Les taches d'huile sur la route ajoutent une difficulté au 
jeu : en effet, le glissement sur l’une d'elles envoie la 
voiture à n'importe quel endroit de l'écran. 

Il faut garder tout son sang-iroid pour la repérer avant 


qu'elle ne touche le bord du tableau. Dans ce cas, le jeu 
repart à zéro. 
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10 REM PETROLE, PETROLE ! 

20 REM ----------- 2 -- 

30 SYMBOL AFTER 128:GOSUB 1080 

44 N=3:GO0T0 168 

50 N=N-1:IF N=0 THEN N=1 

60 FOR I=508 TO 508 STEP-5:SOUND 1,1,2:NEXT 

70 IF INKEYS$="" THEN 70 

80 REM --------------- 

96 REM DESSIN DU JEU 

109 E=-19:K=0 

110 DX=9:DY=-1:X=19:Y=10 

120 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
1:PEN 1:BORDER 1 

130 FOR I=1 TO 48 

140 LOCATE I,1:PRINT" ":LOCATE I,23:PRINT" " 

150 IF I<23 THEN LOCATE 1,I:PRINT" ":LOCATE 40,1I:P 

RINT" ‘ 

160 NEXT I:PAPER 0 

178 LOCATE X,Y:PRINT CHRS(129) 

180 FOR I=1 TO 15 

199 W=INT(RND#21)+2:V=INT(RND*x38)+2 

200 IF TEST(V*16-8,408-W*16)>0 THEN 190 

210 IF I<11 THEN PEN 2:LOCATE V,W:PRINT CHRS(130) 
ELSE PEN 3:LOCATE V,W:PRINT CHR$(128) 

2206 NEXT I 

230 PEN 1:LOCATE 2,24:PRINT" KM: 0 T.KM:":KK; 

TAB(27)}"ESSENCE: 10" 

240 IF INKEY$="" THEN 240 

280 REM ------------- 

290 REM LE JEU 

308 DS$=INKEYS:IF D$="" THEN 380 

310 IF DY-=-86 THEN 350 

320 IF D$="Q" THEN DX=DY:GOTO 349 

330 DX=-DY 

340 DY=0:GOTO 380 

350 IF D$="P" THEN DY=DX:GOTO 370 

360 DY=-DX 

3/0 DX=0 

380 PEN 1:LOCATE X,Y:PRINT "." 

400 X=X+DX:Y=Y+DY 

410 A=TEST(X*16-8,408-Y*16) 

420 IF A=1 THEN 808 

430 IF A=3 THEN E=E+10 

440 IF TEST(X“16-8,402-Y*16)=1 THEN K=K-2#N:KK=KK- 
2#N:IF K<O THEN 800 

450 IF A<>2 THEN 480 

460 Y=INT(RND#21)+2:X=INT(RND+#38)+2 

470 IF TEST(X*16-8,408-Y*16)>0 THEN 460 

480 K=K+N:KK=KK+N:E=E-0.1-IF E<=0 THEN 800 

490 IF K>=400 THEN 50 
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500 


510 
528 
780 
798 
800 
810 
820 
830 
988 
990 
1000 
1010 
1820 
1030 
18640 
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LOCATE 7,24:PRINT K;" ":LOCATE 19,24:PRINT KK; 


“.LOCATE 35,24:PRINT INT(E);" " 


LOCATE X,Y:PRINT CHR$(129) 

GOTO 360 

REM mme sansesree 
REM FIN 

LOCATE 7,24:PRINT K;" ":LOCATE 19,24:PRINT KKk; 


: LOCATE 35, 24: PRINT INT(E+0. 001);" ” 


FOR 1:50 TO 500 STEP 5:SOUND 1,1,2:NEXT 
IF INKEYS<>CHRS(13) THEN 820 
RUN 
REM === 
REM GRAPHIQUES 
SYMBOL 128,249,138,254,250,249,253,255, 248 
SYMBOL 129,60,66,129,129,255,255,255, 102 
SYMBOL 138,0,62,252,255,63,252,127,251 
RANDOMIZE TIME 
RETURN 


Super jeux Amstrad 


PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 70 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en1000, on place dans la variable N le niveau 
du jeu. 


Lignes 100 à 240 : dessin du jeu 


Apres l'effacement de l'écran et le dessin du cadre (lignes 
120 à 160), on affiche aléatoirement sur l’écran les deux 
sortes d'éléments (caractères graphiques 128 et 130). 


Lignes 300 à 520 : le jeu 


Si une touche est appuyée, on modifie en conséquence les 
incréments de direction DX et DY (lignes 300 à 370). Puis 
l'on affiche un point à la place de la voiture. 


Ensuite, on modifie le contenu de X et Ÿ avec les 
incréments DX et DY (ligne 400). 


On teste si un élément a été rencontré avec la fonction 
TEST {ligne 410). Si celui-ci est le bord de l'écran (A=1), 
on va directement en ligne 800 pour la fin du jeu. 

Par contre, s’il s’agit d'une pompe (A=3), on incrémente 
le compteur E de 10. 

S'il S’agit d'un point, on décrémente le nombre de 
kilomètres K de 2 fois le niveau. 


En ce qui concerne l'huile (A=2), or modifie aléatoirement 
les coordonnées X et Ÿ de la voiture. 


Après l'incrément du compteur K, on teste si celui-ci n’est 
pas supérieur ou égal à 400. Si c’est le cas, on va en ligne 
50 pour changer de niveau, sinon, on affiche la voiture à 
X,Y, et le jeu continue normalement. 


A couleur du point rencontré par la voiture 
D$ dernière touche enfoncée 

DX et DY sens du déplacement en X et en Y de la 
voiture 

nombre de litres d'essence dans la voiture 
indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

nombre de kilomètres parcourus 

total des kilomètres de toutes les parties 
niveau du jeu 

coordonnées aléatoires des divers éléments 
coordonnées de la voiture 


KE LAAÆA Cm 
a 


D © 
= 
<Æ 
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REFLEXES 


90 





Avez-vous de bons réflexes ? 


Le jeu suivant vous aidera à le savoir. Il s'agit de guider un 
anneau le long d’un fil électrique qui dessine des courbes 
aléatoires plus ou moins compliquées. 


Pour cela, vous disposez des flèches haut et bas. 


Faites partir l'anneau en tapant sur une touche et rectifiez 
Sans arrêt son glissement alors qu'il a tendance à revenir à 
l'horizontale. 


Une sonnerie intempestive se déclenche quand vous 
heurtez le fil et quand vous gagnez. 


Ce programme est à utiliser de préférence les jours de fête 
pour tester la lucidité de tous les joyeux convives… 





Super jeux Amstrad 


10 REM REFLEXES 

29 REM --------------- 

30 MODE 1:INK 90,13:INK 1,@0:PAPER O0:PEN 1:BORDER 13 

. SPEED KEY 5,3 

40 GOSUB 900 

90 RANDOMIZE TIME 

60 PLOT 6,22@:DRAW 40,220 

70 X=40:Y=220 

89 S=1 

98 X=X+59 

100 IF RND(1)>0.5 THEN S=-S 

119 IY=RND*#50+S 

120 IF Y+IY<180 OR Y+IY>380 THEN 100 

138 DRAW X,Y+IY 

140 Y=Y+IY 

150 IF X>448 THEN 170 

160 GOTO 98 

1/70 DRAW X+100,220 

180 DRAW X+134,220 

198 PLOT X+134,230:DRAW X+134,208 

284 REM --------------- 7 - -- 

298 REM INITIALISATION CURSEUR 

300 X=19:Y=230:P=5:D=1 

310 FOR I=1 TO 5 

320 X(I)=X:Y(I1})=Y 

338 PLOT X(I),Y(I) 
Y(I)- 


346 PLOT X(I), 20 

350 X=X+2 

369 NEXT I 

3/0 IF INKEYS="" THEN 370 

AOÛ REM ei 0 mmm- mea — 


499 REM DEPLACEMENT 

598 AS=INKEYS 

510 S=2#(AS$=CHR$S(241))-2#(AS$=CHRS(240)) 
520 IF TEST(X(P)+2,Y(P))=1 THEN 700 

536 IF TEST(X(P)}+2,Y(P)-18)=1 THEN 700 
549 PLOT X(D),Y(D),9:PLOT X(D),Y(D)-20,0 
550 PLOT X(D),140:DRAW X(D),Y(D)-28,0 
560 X(D)=X(P}+2:Y(D)=Y(P)+S 

578 PLOT X(D),Y(D),1:PLOT X(D),Y(D)-20 
580 P=P+1:1F P=6 THEN P=1 

590 D=D+1:1F D=6 THEN D=1 

608 PLOT X(D),148:DRAW X(D),Y(D)-28 

610 GOTO 508 

GB REM = 
690 REM SONNETTE 

708 IF X(P)>590 THEN 760 

718 SOUND 1,600,2@ 

726 FOR I=1 TO 25 

730 SOUND 1,60,1@:SOUND 1,100,5:NEXT 
748 IF INKEYS<>CHRS(13) THEN 740 
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750 
768 
7170 
780 
790 
808 
880 
890 
9808 
918 
920 
930 
940 
958 
960 
970 
)*#30 


RUN 

SOUND 1,606,2@ 

FOR I=1 TO 25 

SOUND 1,608,18:SOUND 1,30@,5:NEXT 
IF INKEYS<>CHRS(13) THEN 790 

RUN 
REM 
REM DESSIN DU JEU 

FOR I=1 TO 7 

READ N,X,Y:X=X#2:Y=400-Y#2 

PLOT X,Y,1 

FOR J=i TO N 

READ X,Y:X=X#2:Y=400-Y#2:DRAW X,Y 

NEXT J,I 

FOR I=06 T0 3.141159 STEP 0.06 

PLOT 204-SIN(I}#*30,36-COS(I)#30:DRAW 204+SIN(I 
,36-C0OS(T})#30 


980 PLOT 242-SIN(T)*x6,38-COS(I1)#6:DRAW 242,38-COS{ 


T)#6 


998 NEXT I 


1000 
1010 
1020 
1030 
1040 
1050 
1080 
1990 
1140 
0,93 
1110 
1120 
158, 
1130 
1140 
1150 
1160 
1178 
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FOR 1=182 TO 2306 STEP 4 
PLOT 1,110:DRAUW I,7@ 
NEXT I 
PLOT 250,110:DRAW 240,30 
LOCATE 6,23: PRINT"220v" 
RETURN 
REM 
REM GRAPHIQUES 
DATA 13,0,98,0,140,50,140,50,145,53,145,53,14 

.148,93,145,113,145 
DATA 113,140,307,140,307,130,5,130,5,95 
DATA 8,48,145,48,150,44,150,44,160,60,160,60, 

56,150,56,145,48,145 
DATA 3,45,160,45,170,49,170,49,160 
DATA 3,55,160,55,170,59,170,59,160 
DATA 4,88,145,88,165,118,165,118,145,88,145 
DATA 3,86,153,83,153,83,158,86,158 
DATA 3,119,153,122,153,122,158,119,158 


de RO eu ee ue ue un ue le RO un OR RUN RO UD AU ie HU Né de us ue D un A OR mn 


Super jeux Amstrad 


PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 190 : initialisation 


On dessine sur l'écran le.jeu à l’aide des DATA en fin de 
programme (sous-programme en 900). Les lignes 60 à 
190 dessinent la ligne brisée en utilisant des nombres 
aléatoires pour corser le jeu. 


Lignes 300 à 370 : initialisation du curseur 


Chaque point du curseur est placé dans les tableaux X et Y 
pour en connaître à tout moment sa position. La variable P 
pointe le premier de ces points, et D le dernier. 


Lignes 500 à 610 : déplacement 


La touche appuyée étant placée dans A$, on détermine par 
une fonction logique la valeur de S (ligne 510). 


Les lignes 520 et 530 testent l'écran à côté du curseur 
pour savoir si la ligne brisée est touchée. 


Après l'effacement du dernier point du curseur ( à X(D), 
Y(D) ) et de la ligne de raccord électrique, on définit le 
dernier point comme étant maintenant le premier, et on 
modifie en conséquence les tableaux X() et Y(). 


ne reste plus qu’à afficher le nouveau point, à 
incrémenter les pointeurs P et D, et à afficher la ligne de 
raccord électrique. 


Lignes 700 à 800 : sonnette 


Si l'on a perdu ( X(P)<590), on simule une sonnette avec 
des instructions SOUND. 


Lignes 900 à 1050 : dessin du jeu 


Les traits qui composent le dessin sont effectués en 
plusieurs temps. Le premier DATA (variable N) donne le 
nombre de traits à tracer, les deux suivants le point de 
départ pour PLOT (variables X et Y), et les N fois 2 DATA 
qui suivent les coordonnées absolues des instructions 
DRAW. 


AS dernière touche enfoncée 

D pointeur du dernier point du curseur dans les 
tableaux X() et Y() 

indice de boucle FOR/NEXT 

incrément dans le tracé de la ligne brisée 
indice de boucle FOR/NEXT 

nombre de lignes à tracer à partir de PLOT 
pointeur du premier point du curseur dans les 
tableaux X() et Y() 

sens de déplacement : S=—1 pour le haut et 
S=1 pour le bas 

X et Y coordonnées des points de tracé du jeu 
X()etY() coordonnées des points du curseur 


nn TZ-Z— 
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Trois formes de circuit vous sont proposées aléatoirement. 


CIRCUIT 24 Vous pouvez les parcourir en déplaçant votre formule 1 à 
l’aide des touches “/” et “\”. Vous disposez aussi de trois 
vitesses à faire varier avec les touches Z (moins vite) et X 
(plus vite) 


La première vitesse donne 1 point à chaque déplacement, 
la deuxième, deux points, etc. La vitesse et les scores 
s'affichent en bas de l'écran. 


Trois vies (symbolisées par des drapeaux) vous sont 
allouées au départ de chaque course. Faites attention, un 
dérapage est si vite arrivé ! 
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10 REM CIRCUIT 24 

29 REM -------- 2 2 2 

36 SYMBOL AFTER 128:DEFINT A-Z:GOSUB 1008 

46 MODE 1:INK @,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
0: PEN 3:BORDER 1: 

50 RANDOMIZE TIME 

68 T=2:A=INT(RND*3)+1 

76 IF A=1 THEN RESTORE 1199 

80 IF A=2 THEN RESTORE 1309 

96 IF A=3 THEN RESTORE 1508 

190 FOR I=8 TO 22 

110 IF I<1 OR I>28 THEN FOR J=1 TO 40:PRINT CHRS(1 
30);::NEXT:GOTO 168 

120 READ AS:A$=" *+A$ 

139 FOR J=1 TO 48 
146 IF MID$S(A$,J,1)="8" THEN PRINT " “+ ELSE PRINT 
CHR$(130 ): 

150 NEXT 

160 NEXT 

176 PEN 2:LOCATE 1,24:PRINT "VITESSE: 1';TAB(16);" 

POINTS:";P:PEN 1 

188 DX=-1:DY=8:X=26:Y=4:V=1 

198 LOCATE X,Y:PRINT CHR$(129) 

206 FOR I=1 TO 2 

219 LOCATE 31+]I#2,24:IF T>=1 THEN PRINT CHRS(133)C 
HR$(134) ELSE PRINT". " 

220 LOCATE 31+I1#2,25:IF T>=1I THEN PRINT CHR$(135)C 

HR$(136); ELSE PRINT" L. | 

230 NEXT I 


240 IF INKEYS="" THEN 240 

280 REM ---------------. "2 

298 REM BEPLACEMENTS 

300 D$=INKEYS:IF D$S="" THEN 400 

319 IF D$<>"Z"* AND DS<>"X" THEN 350 

328 IF D$="Z" AND V>1 THEN V=V-1 

330 IF DS="X" AND V<3 THEN V=V+1 

348 LOCATE 9,24:PRINT V:GOTO 409 

350 IF DY-0 THEN 386 

360 IF DS$="/" THEN DX=DY ELSE DX=-DY 

370 DY=0:GOT0 408 

380 IF D$="\" THEN DY=DX ELSE DY=-Dx 

390 DX=0 

400 PEN 1:LOCATE X,Y:PRINT " " 

410 X=X+DX:Y=Y+DY 

426 IF TEST(X#16-8,408-Y*16)>0 THEN 500 

430 LOCATE X,Y:PRINT CHR$S(130+DX+DY#2) 

448 FOR I=1 TO (3-V)#50:NEXT 

450 P=P+V:LOCATE 23,24:PRINT P 

468 GOTO 300 

488 REM -------------- 

490 REM FIN 

508 FOR I=58 T0 5886 STEP 5: SOUND 1,I1,2:NEXT:T=T-1: 
IF T>-1 THEN 170 

510 LOCATE 31,24:PRINT "GAME OVER" 

920 IF INKEYSC>CHRS(13) THEN 528 

538 RUN 

980 REM ------------ 

998 REM GRAPHIQUES 

1008 SYMBOL 128,90,126,90,24,24,219,255,219 
1919 SYMBOL 129,291,66,255,255,066,231,7 
1926 SYMBOL 130,120,255,295,259,255,265 255,126 
1030 SYMBOL 131,224,231,66,255,255,66,231,224 
1048 SYMBOL 132,219,255,219,24,24,90,126,90 
1050 SYMBOL 133,12,14,27,53,106,213,170,213 
1068 SYMBOL 134,0,0,0,128,192,96,248,152 
1074 SYMBOL 135,107,53,26,14,4,0,0,0 

1088 SYMBOL 136,12,6,3,1,0,8,0,0 
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99 


1898 
1108 
1110 
1120 
1130 
1140 
1158 
1169 
11/79 
1188 
1198 
1200 
1210 
1220 
1230 
1248 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1338 
1340 
1350 
1360 
13/70 
1380 
1390 
1400 
1419 
1420 
1430 
1440 
1450 
1468 
14/0 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1588 
1598 
1600 
1618 
1620 
1630 
1649 
1658 
1660 
1674 
1680 
1690 
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RETURN 

DATA" 60000080000608008088888 
DATA" 0808008008000880886808 
DATA" 0060860080800000880800088 
DATA"0080088000008800800880008808 


DATA"00808 60808 
DATA"0000 0060806880 6800 
DATA"0008 606900080088 6008 
DATA"0008 00600800800080688 0000 
DATA"“0008 08006 000088 60000 
DATA"0008 60060 00080 0900 
DATA"O0008 0008 6008 0800 
DATA'"0000 0060 0888 6008 
DATA"0000 09300 0860 0800 
DATA"6000 0000 80830 000600 
DATA"0000 00686 0068 0680800 
DATA"60000 0808 060088 068000 
DATA"0000800080 0800080880800008 


DATA"0000080680 0000880086608800 
DATA" 0000800 008088008806 
DATA" 00860 0080000808 
DATA" 00900000808008080000808000008688 


DATA"0080080608080808080800860808000880000080 
DATA"00000000800008008080080008800800 
DATA"00000800088000080808008008088008 


DATA"6008 66000 
DATA"06808 08808680 6000 
DATA"0008 0060886808 6008 
DATA*0000 0000800800 8068 
DATA"0008 000000000800 6086 
DATA"0008 00000 068000 06000 
DATA"0008 008080 0000 0660 
DATA"0000 00068 0000 0008 
DATA"0008 00860 00806 0808 
DATA"0008 00880 00806 0800 
DATA"@0800 00808 0600 0006 
DATA'"0008 68000 0600 8800 
DATA"0008080080 008686800080 
DATA"00068680688 6600000008 
DATA"6008808 0080680080 
DATA" 000800 0000808 

DATA" 000080080088 

DATA" 0900000880880088 
DATA" 000008060800000088 
DATA" 0000008688000088 
DATA" 68008 0000 
DATA" 8000 08080 
DATA" 6800 0000 
DATA" 000008800008 0800 
DATA" 000080880080 0000 
DATA" 000080000880 8000 
DATA" 000000808000 6008 
DATA" 08000 0800 
DATA" 00888 6008 
DATA" 00008 0008 
DATA" 006000 0000 
DATA"80008 0000 
DATA'"00008000000088008008088000000009 


DATA"0000000800000086800080080800000 
DATA"00000008000000008080808008088008 
DATA" 8008000800000808800000000008 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 240 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en 1000, on place dans la variable T le nombre 
de vies. 


La variable À (nombre aléatoire) détermine le type du 
circuit. En fonction de celle-ci, on effectue un RESTORE 
des DATA situées en fin de programme. 


Les lignes 100 à 160 affichent à l'écran le dessin du circuit 
choisi par À en lisant les DATA. Chaque espace est 
remplacé par un carré noir, les O étant remplacés par des 
espaces. Il est donc possible d'ajouter vos propres circuits 
à la suite des DATA déjà définies. 


Les lignes 200 à 230 affichent le nombre de vies restantes 
(les petits drapeaux en bas de l'écran). 


Lignes 300 à 460 : le jeu 


Si une touche est appuyée, on modifie en conséquence la 
vitesse de la voiture (variable V) ou les incréments de 
direction DX et DY (lignes 350 à 390). Puis l'on affiche un 
espace à la place de la voiture. 


Ensuite, on modifie le contenu de X et Ÿ avec les 
incréments DX et DY (ligne 410). 


On teste si le bord de la piste a été touché avec la fonction 
TEST (ligne 420). Si c’est le cas, on va directement à la 
ligne 500 pour la fin de la partie. Sinon, on affiche la 
voiture à X,Y et on incrémente le nombre de points P en 
fonction de la vitesse actuelle. 


A type de circuit 

A$ chaîne de caractères utilisée pour afficher le 
jeu 

D$ dernière touche enfoncée 

DX et DY sens du déplacement en X et en Ÿ de la 
voiture 

| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

P nombre de points 

T nombre de vies 

V vitesse de la voiture (entre 1 et 3) 

X et Y … coordonnées de la voiture 
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A vous de guider avec dextérité un serpent infernal qui se 
SERPENT précipite comme un fou sur tous les obstacles. 


INFERNAL Au premier niveau, il faut le manipuler entre quarante-cinq 
pavés avec les touches P et Q. Chaque déplacement 
rapporte un point. Vous changez de niveau chaque fois que 
vous avez atteint cent points (appuyez sur ENTER pour le 
le tableau suivant). Mais à chaque nouveau niveau un pavé 
supplémentaire apparaît. 

Pour mieux suivre le jeu, Amstrad vous signale en bas de 
l'écran le nombre de vos points depuis que vous jouez, le 
nombre de points acquis dans le niveau où vous évoluez 
et, enfin, ce niveau. 


Alors, prêt pour le domptage ? 
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19 REM SERPENT INFERNAL 

20 REM --------"-""" 
30 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
O:PEN 1:BORDER 1 

48 N=1 

59 CLS:RESTORE: GOSUB 600 

60 RANDOMIZE TIME 

76 X(8)=-1: x (212 1:Y(1)=1:Y(3)=-1 

86 X=19:Y=18: 

100 RE = 
198 REM LE JEU 

208 AS=INKEYS 

219 IF A$="Q" THEN D=(D+1) MOD 4 

2206 IF AS="P" THEN D=(D+3) MOD 4 

230 X=X+X(D):Y=Y+Y(D) 

240 IF TEST(X*16-8,408-Y»*16)<>0 THEN 480 
250 PAPER 3:LOCATE X,Y:PRINT " ":PAPER 0 
260 T=T+1 

270 LOCATE 24,24:PRINT T 

280 IF T=100 THEN 400 

290 GOTO 206 

398 REM FIN DE PARTIE 

408 TT=TT+T 

418 LOCATE 7,24:PRINT TT 

420 IF INKEYS<>CHRS(13) THEN 428 

430 IF T<100 THEN RUN 

449 T=0:N=N+1 

450 GOTO 50 
RE 
598 REM DESSIN DU JEU 

60@ PAPER 1! 

618 FOR I=1 TO 46 

62@ LOCATE I,1:PRINT" ":LOCATE I,23:PRINT" " 
630 IF I<24 THEN LOCATE J,I:PRINT" ":LOCATE 48,1:P 
RINT" 4 

64@ NEXT 

658 PAPER 2 

660 FOR I=5 TO 37 STEP 4 

670 FOR J=4 TO 20 STEP 4 

68@ LOCATE I,J:PRINT" " 

698 NEXT:NEXT 

700 FOR I=1 TON 

710 A=INT(RND*x38)+2: B=INT(RND21 )+2 

7206 IF TEST(A*16-8,408-B16)<>0 THEN 710 
730 LOCATE A,B:PRINT" " 

740 NEXT 

750 PAPER @ 

760 LOCATE 1,24:PRINT'TOTAL:";TAB(17); "POINTS: ";TA 
B(30); "NIVEAU:":N 

770 RFTURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 80 : initialisation 

On place dans les tableaux X et Y le nombre de caractères 
de déplacement pour les quatre directions. C’est la ligne 
60 qui initialise les nombres aléatoires. 


Lignes 200 à 290 : le jeu 


La direction du serpent est modifiée en fonction de la 
dernière touche appuyée. On incrémente alors les 
coordonnées du serpent X et YŸ en se référant aux tableaux 
X( ) et Y(). 


La ligne 240 vérifie si l’on rencontre un objet sur l'écran. 
Si c'est le cas, on va à la ligne 400 pour la fin du jeu. 
Lignes 400 à 450 : fin de partie 


Si le Serpent rencontre un objet, on recommence une autre 
partie (ligne 430), sinon, on incrémente le niveau du jeu et 
l'on revient en ligne 50 pour un nouveau tableau. 


Lignes 600 à 770 : dessin du jeu 


Les lignes 610 à 640 affichent le cadre, les lignes 660 à 
690 affichent les obstacles et les lignes 700 à 740 affichent 
les obstacles aléatoires. 


AetB coordonnées du point affiché aléatoirement 
AS dernière touche appuyée 

D direction du serpent 

| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

N niveau du jeu 

T nombre de points d’un tableau 

TT nombre de points d’une partie 

XetY coordonnées du serpent 

X()etY() nombre de caractères de déplacement dans 


les quatre directions 
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EE 
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GUERRE DES 
ETOILES 


Les vaisseaux-robots ont envahi l'espace et il devient de 
plus en plus difficile de voyager vers Mars. Voilà pourquoi 
les pilotes s’entraînent sur ce simulateur de vol avant de 
partir en mission. 


Dés le départ, Amstrad indique le temps de vol (1000 
unités en tout). Le nombre de lasers restants (50 au 
départ) et d'ennemis abattus apparaît à chaque essai. 
l'est possible de viser les vaisseaux en déplaçant votre 
navette à l’aide des quatre flèches de direction. 

Le briefing final se fait dans deux cas: vous n'avez plus de 


lasers, ou le temps imparti est écoulé. En appuyant sur la 
touche ENTER vous repartirez pour une autre mission. 


ENNEMIS : = LASERS: 31 


7è3 
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16 REM GUERRE DES ETOILES 
REM 


36 SYMBOL AFTER 128:GOSUB 1000 

40 RANDOMIZE TIME 

50 MODE 1:INK 0,3:INK 1,8:PAPER @:PEN 1: BORDER 3 
60 PLOT 26,380,1:DRAW 620,388: DRAW 620,28: DRAW 20, 
20: DRAW 20,380 

7 PLOT 320,388: DRAW 328,280:PLOT 320,120:DRAW 320 


2 
88 PLOT 26,206:DRAW 1206,268:PLOT 529, 208:DRAVW 620, 


90 FOR I=48 TO 1006 STEP 20 
100 PLOT 300,400-I:DRAW 340,400-I:PLOT 308,140-I:D 
RAW 340,140-I 

119 PLOT 1,220:DRAW I,180:PLOT 1+500,220:DRAW I+50 
0,180 

126 NEXT I 

130 LOCATE 3,23: PRINT"TEMPS:" 

148 LOCATE 3,3:PRINT"'ENNEMIS: " 

150 LOCATE 27,3: PRINT"LASERS:" 

189 REM ---------- 2 2 
198 REM LE JEU 

200 L=58:T=1008:F=0 

210 Z=INT(RND»3)+1 

220 X=INT(RND#24)+9: Y=INT(RND*8)+9 

230 X=X-1+INT(RND*3): Y=Y-1+INT(RNDx3) 
240 IF T=9 OR L=0 THEN 700 

250 IF X<9 THEN X=9 

260 IF X>38 THEN X=30 

270 IF Y<9 THEN Y=9 

280 IF Y>17 THEN Y=17 

290 LOCATE X,Y:PRINT AS(Z) 

300 AS=INKEYS:IF A$<>"" THEN 400 

310 LOCATE X,Y:PRINT"  " 

320 T=T-1:LOCATE 9,23:PRINT T 

330 GOTO 230 

380 REM --------- 
390 REM DEPLACEMENT 

400 IF AS$=" " THEN 480 

410 LOCATE X,Y:PRINT"  " 

420 IF AS=CHRS(242) THEN X=X-1 

430 IF AS=CHR$S(243) THEN X=X+1 

440 IF AS=CHRS$S(240) THEN Y=Y-1 

450 IF AS=CHRS(241) THEN Y=Y+1 

469 T=T-1:LOCATE 9,23:PRINT T 

470 GOTO 240 

480 A=TEST(312,206) 

490 FOR I=ô TO 168 STEP 26 

500 PLOT 140+1,20+1,1:DRAW 150+1,30+I:PLOT 500-I, 2 
0+I:DRAW 498-I, 30+I 

510 PRINT CHRS(7);: 
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529 
530 
549 
O+I: 
550 
560 
570 
580 
599 


NEXT I 

FOR I=8 TO 1606 STEP 29 

PLOT 140+1,20+I,8@:DRAW 158+I,30+I:PLOT 560-I, 2 
DRAW 490- I, 30+T' 

NEXT I 

L=L-1:LOCATE 34,3:PRINT L 

IF A=0 THEN 310 

E=E+1:LOCATE 11,3:PRINT E 

LOCATE X*X, Y: PRINT"#ææx": FOR 1= 5086 TO 50 STEP-10: 


SOUND 1,1,1: NEXT 


600 
610 
680 
698 
786 
719 
720 
730 


LOCATE X,Y:PRINT" g 


GOTO 216 


REM -------------- 2 

REM RESULTATS 

CLS:PRINT TAB(7); "RESULTATS" 
PRINT:PRINT:PRINT:PRINT 

PRINT E; "ENNEMIS DETRUITS":PRINT 

PRINT * EN"; 1000-T; "UNITES TEMPS'":PRINT 


740 PRINT" AVEC"; 50-L;"LASERS" 

758 PRINT: PRINT: PRINT 

760 PRINT" MISSION REUSSIE A";INT((E/(58-L))#108); 
us Le 

770 IF INKEYS<>CHRS(13) THEN 770 ELSE RUN 

989 REM ------------ 


998 

1006 
18010 
1020 
1030 
1040 
1850 
1060 
1070 
1088 
1090 
1100 
1110 
1120 


REM GRAPHIQUES 

SYMBOL 128,28,49,99,255,255,99,49, 28 
SYMBOL 129,255,129, 24, 36, 36,24. 129,255 
SYMBOL 130,56,148, 198.255. 255,198, 140.56 
SYMBOL 131,9,17,34,64,128, 255 0,0 

SYMBOL 132,255, 24,24, 126,129, 153, 129,126 
SYMBOL 133,144,136,68,2,1,255,0. 

SYMBOL 134,31,48,96, 192. 192,255. o. ê 
SYMBOL 135,255,0,60,90,165,165,90.60 
SYMBOL 136,248,12,6,3,3,255,0.0 
AS(1)=CHR$S(128)+CHRS(129)+CHRS(130) 
AS(2)=CHR$S(131)+CHRS(132)+CHRS(133) 

AS (3) =CHRS(134)+CHR$(135)+CHRS (136) 

RETU 


Super jeux Amstrad | 63 


PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 150 : initialisation 


L'appel du sous-programme en 1000 initialise les 
caractères graphiques et place dans le tableau A$ le dessin 
des ennemis. 


Les lignes 50 à 120 affichent sur l'écran le dessin de la 
mire de tir avec des caractères semi-graphiques. 


Lignes 200 à 330 : le jeu 


La position de départ du vaisseau ennemi est donnée par 
les valeurs aléatoires contenues dans les variables X et Y. 
Pour chaque mouvement, on ajoute à celles-ci une valeur 
comprise entre —1 et 1. 


Si le temps imparti est écoulé (T=0) ou s'il ne reste plus 
de laser (L=0), on va directement à la ligne 700 pour la fin 
du jeu. 


Si aucune touche n'est enfoncée (ligne 300) on revient à la 
ligne 230 pour modifier à nouveau la position du vaisseau 
ennemi. 


Lignes 400 à 610 : déplacement 


Si la touche enfoncée est une flèche, on modifie en 
fonction de celle-ci les coordonnées X et Ÿ et l’on revient à 
la ligne 240 pour continuer le jeu. 


Dans le cas de la barre d'espace, on affiche le laser. Si 
l'ennemi est touché, on incrémente le compteur E et l’on 
revient à la ligne 210 pour changer de type de vaisseau et 
placer dans X et Ÿ de nouvelles coordonnées aléatoires. 


A caractère en dessous du laser 
A$ dernière touche enfoncée 

A$() dessin des ennemis 

E nombre d’ennemis abattus 

| indice de boucle FOR/NEXT 

L nombre de lasers 

T temps imparti 

Z type d’ennemi à afficher 

X et Y coordonnées du vaisseau ennemi 
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Saurez-vous déplacer un serpent le plus longtemps 
possible sans qu'il heurte un des innombrables petits 
carrés qui surgissent devant lui ? 


Pour cela, servez-vous des touches P et Q et gardez votre 
sang-froid. 


En cas de collision tapez sur n'importe quelle touche pour 
une autre partie. 
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19 REM SNAKE 
RE 

30 SYMBOL AFTER 128 

48 SYMBOL 128,136,17,34,68,136,17,34,68 

59 MODE 1:INK 6,1:INK 1,24:PAPER 1:PEN 1:BORDER 1: 
GOSUB 400 

69 RANDOMIZE TIME 

76 X(8)=-8: x (215 8: Y(D)= 8:Y(3)=-8 

88 X=320:Y=296:0D= 

RE 

198 REM LE JEU 

208 AS=INKEYS 

218 IF A$="P" THEN D=(D+1) MOD 4 

220 IF AS$="Q" THEN D=(D+3) MOD 4 

230 X=X+X(D):Y=Y+Y(D) 

240 IF TEST(X,Y)}>0 THEN FOR I=50 TO 54@ STEP 5: SOU 
ND 1,1,2:NEXT:WHILE INKEYS="":WEND: RUN 

250 PLOT X+2,Y+2:DRAUR 2,0:DRAWUR @,2:DRAWR -2,0:DR 
AWR 6,-2:PLOT X,Y:DRAWR 4,0:DRAUWR Ô,4:DRAWR -4,0:D 
RAWR @,-4 

260 V=INT(RND*152)#8+16:W=400-INT(RND*88)x*8 

270 IF TEST(V,W)>0 THEN 260 

280 PLOT V+2,W+2:DRAWR 2,@0:DRAWR @,2:DRAWR -2,0:DR 
AWR 9,-2:PLOT V,W:DRAWR 4,0:DRAWR @,4:DRAWR -4,8:D0 
RAWR @,-4 

298 P=P+1:LOCATE 23,25:PRINT P; 

306 SOUND 1,40,1 

310 GOTO 208 | 
RS 

390 REM DESSIN DU JEU 

488 FOR I=1 TO 48 


418 LOCATE I,1:PRINT " ":LOCATE I,24:PRINT " * 

420 IF I<25 THEN LOCATF 1,1:PRINT " ":LOCATE 40,1: 
PRINT " " 

430 NEXT I 


440 PAPER 8:LOCATE 16,2S:PRINT "POINTS:"; 
459 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 80 : initialisation 

Après la définition des caractères graphiques et le dessin 
du jeu par le Sous-programme en 400, on place dans les 
tableaux X() et Y() le nombre de caractères de déplacement 
pour les quatre directions. 


Lignes 200 à 310 : le jeu 


Le caractère saisi au clavier étant stocké dans la variable 
A$, on modifie suivant sa valeur la variable D. On utilise 
pour cela une fonction modulo (MOD) qui évite le test 1F 
THEN beaucoup trop long. D=(D+3) MOD 4 remplace 
D=D-—1: IF D=-—1 THEN D=3 et D=(D+1) MOD 4 
remplace D=D+1: IF D=4 THEN D=0. 

Si le serpent rencontre un petit carré ou le bord de l'écran, 
le programme effectue un RÜN dès qu’une touche est 
appuyée. 

Les lignes 260 à 280 affichent à une position aléatoire de 
l'écran un petit carré. On vérifie avant de l'afficher qu'il n'y 
a pas d'autre carré ou partie du serpent à cet endroit. 


AS dernière touche enfoncée 
direction prise par le joueur 
| indice de boucle FOR/NEXT 
P total des points 
_VetW coordonnées du prochain petit carré à afficher 
XetY coordonnées de la tête du serpent 


X()et Y() nombre de caractères de déplacement dans 
les quatre directions. 
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Vous allez pouvoir vous entraîner inlassablement chez vous 
a ce célèbre jeu vidéo qui consiste à descendre une par une 
toutes les briques d’un mur. 


DE BRIQUES La balle que vous utilisez pour cela est réceptionnée par la 


raquette au bas de l'écran. Celle-ci est manœuvrée avec les 
touches “/” et “\”. 


S 
= 
= 


Vous n'avez le droit de laisser échapper la balle que trois 
fois, sinon le mur se redresse et tout est à recommencer. 
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14 REM MUR DE BRIQUES 

20 REM -------------- 

30 DEFINT A-Z:SPEED KEY 5,3 

40 RANDOMIZE TIME 

50 V=3 

69 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,15:PAPER 

0:PEN 1:BORDER 1:GOSUB 608 

79 CLS 

80 LOCATE 25,1:PRINT'VIES:".4V 

99 FOR I=2 TO 21 

108 PAPER 2:LOCATE 9+I,2:PRINT " " 

119 LOCATE 18,I:PRINT *“ “ 

128 LOCATE 31,I1:PRINT “ ‘ 

130 IF 1<10 AND I>5 THEN PAPER 8:PEN 3:LOCATE 11,1 
: PRINT STRINGS(20,128) 

140 NEXT:PAPER 0 

150 P-14:7T-0 

160 X=INT(RND#11)+15:Y=20:DX=-1:DY=-1 

288 REM ----------------- 

290 REM LE JEU 

300 PEN 1:LOCATE 10,1:PRINT"SCORE:";T+TT 

310 AS=INKEYS:P=P+1#(A$="/" AND P>18)}-1#(A$="\" AN 

D P<28) | 

320 LOCATE P,22:PRINT" ";:PAPER 1:PRINT" ";:PAPER 
O:PRINT" ” 

330 Z=TEST((X+DX)#16-2,4808-Y#16):IF Z<>9 THEN SOUN 
D 1,280,1:DX=-DX:1IF Z=3 THEN SOUND 1,58@,1:LOCATE X 
-DX,Y: PRINT" ":T=T+1 

340 Z=TEST(X*16-2,408-(Y+DY)#16):IF Z<>8 THEN SOUN 
D 1,200,1:DY=-DY:IF Z=3 THEN SOUND 1,50,1:LOCATE X 
nŸY-DY:PRINT" ":T=T+1:GOTO0 330 ELSE 330 

3950 Z=TEST((X+DX)#16-2,498-(Y+DY)#16):IF Z<>0 THEN 
SOUND 1,200,1:DY=-DY:IF Z=3 THEN SOUND 1,58 ,1:L0OC 
ATE X+DX,Y-DY:PRINT" ":T=T+1:GOTO 330 ELSE 330 

360 AS=INKEYS$S:P=P+1#(A$="/" AND P>19)-1#(A$="\" AN 
D P<28) 

370 LOCATE P,22:PRINT" ";:PAPER 1:PRINT" ‘"::PAPER 
O:PRINT" " 

380 LOCATE X,Y:PRINT" " 

390 IF T=80 THEN TT=TT+T:GOTO 70 

408 X=X+DX:Y=Y+DY 

410 IF Y>21 THEN 500 

420 LOCATE X,Y:PRINT CHR$S(129) 

430 GOTO 308 

480 REM ------------------------- oops 

490 REM FIN DE PARTIE 

509 V=V-1:LOCATE 25,1:PRINT'VIES:";V 

510 IF INKEYS<>CHRS(13) THEN 519 

520 IF V<1 THEN RUN 

530 LOCATE X,Y:PRINT" 

540 GOTO 160 

100 REM esse ssssssss 

590 REM GRAPHIQUES 

6006 SYMBOL AFTER 128 

619 SYMBOL 128,255,129,129,129,129,129,129,255 

626 SYMBOL 129,60,126,255,255,255,255,126,68 

630 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 160 : initialisation 


Le DEFINT de la ligne 30 précise au basic que l'on veut des 
variables entières pour accélérer l'exécution du 
programme. 


Le SPEED KEY de la ligne 30 évite le temps d'attente avant 
répétition au clavier pour que le déplacement du curseur 
soit continu. 


La boucle des lignes 90 à 140 affiche le jeu. C’est la ligne 
130 qui affiche les briques. 


Les variables X et Ÿ définissent la position initiale de la 
balle sur l'écran. 


Lignes 300 à 430 : le jeu 


C'est la variable P qui détermine la position de la raquette. 
On la modifie en fonction de la dernière touche enfoncée. 


Les lignes 330 à 350 modifient la trajectoire de la balle 
(incrément DX et DY) en fonction des éléments rencontrés 
(mur, briques ou raquette). 


La ligne 310 est répétée en 360 pour que le curseur se 
déplace plus rapidement. 


La ligne 410 teste si la balle sort du jeu. Si c’est le cas, le 
programme va à la ligne 500 pour supprimer une vie. 


Lignes 500 à 540 : fin de partie 


On décrémente le compteur de vies V. Si celui-ci est à 
zéro, on reprend une nouvelle partie. 


dernière touche appuyée 
XetDY direction de la balle 

indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
position du curseur 

total des points d'un tableau 
total des points d’une partie 
nombre de vies 

position de la balle 
caractère sous la balle 


23 


ro 


NX 
ne 
< 
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Essayez d'attraper le plus grand nombre de noix de coco 


en déplaçant le singe sous les trois cocotiers d'où elles 
COCONUTS tombent. 


Pour cela, vous devez utiliser les touches P et Q. 


Votre score s'affiche en haut de l’écran et la fréquence des 
noix s'accroît toutes les 5 bien réceptionnées. 


Trois précieuses vies vous sont attribuées au début d'une 
partie. Faites-en bon usage. Mais si vous les perdez, le jeu 
repart tout seul pour un autre entraînement. 
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10 REM COCONUTS 


REM 
30 SPEED KEY 5,3:SYMBOL AFTER 128: GOSUB 3000 
40 DIM C(10,3) 
50 RANDOMIZE TIME 
66 GOSUB 20080 
70 P=1:0=1:D=1:T=0:V-3:N=0.6 
80 GOSUB 19000 
180 REM ------------ mme 
190 REM LE JEU 
260 FOR J=1 TO 3 
210 AS=INKEYS:P=P+(A$S="P")}#(P<3)-(A$="Q")#(P>1) 
229 PEN 2:LOCATE 7,19:PRINT AS$S(P):LOCATE 7,28:PRIN 


249 FOR I=1 TO 9 

250 PEN 3:1F C(Q,9J)=1 THEN LOCATE Jw5+3,I+9: PRINT 

CHR$(135) ELSE LOCATE J#5+3,I+9:PRINT " " 

260 Q=Q+1:IF Q=11 THEN Q=1 

276 NEXT 

280 AS=INKEYS: P=P+(AS="P"}#(P<3)-(AS="Q")#(P>1) 

290 PEN 2: LOCATE 7,19:PRINT AS(P):LOCATE 7,20:PRIN 

S(P) 

300 IF C(Q,J)=0 THEN 360 

310 IF P<>J THEN 420 

320 PRINT CHRS(7);:T=T+1:1F T/S=INT(T/5) THEN N=N+ 
Fe 

330 C(Q,J)=0 

349 AS=INKEYS: P=P+(AS="P"}#(P<3)-(A$="Q")#(P>1) 

350 PEN 2:LOCATE 7,19:PRINT AS(P):LOCATE 7,20:PRIN 
T BS(P) 

364 NEXT 


370 LOCATE 7,1:PRINT T 
380 D=Q 

390 IF RND>N THEN 200 

400 C(Q,INT(RND»3)+1)=1 

410 GOTO 268 

420 FOR I=5@ TO 508 STEP 19:SOUND 1,1,2:NEXT 
430 V=V-1 

448 GOSUB 1000 

450 IF V>0 THEN 360 

460 IF INKEYS<>CHRS(13) THEN 460 

476 RUN 
OR 

998 REM AFFICHE LES VIES 

1008 PEN 3:FOR K=1 TO 3 

1010 IF V<K THEN 1050 

1028 LOCATE 13+K*2,1:PRINT LEFTS(AS(1),2) 
1030 LOCATE 13+K*2,2:PRINT LEFTS(BS(1),2) 
1848 GOTO 1070 

1058 LOCATE 13+Kx2,1:PRINT " 
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1060 
1670 
1080 
1988 
1998 
2000 


2010 


LOCATE 13+K#2,2:PRINT " 
NEXT K 
RETURN: 
REM 
REM DESSIN DU 


ne un té Nb UD “NN CUP 4 AUD RO UD D D UD JD D D OURS er dun ue MR QU NRA AU ER US AR ee 


JEU 


MODE O:INK @,1:INK 1,24:INK 2,15:INK 3,6:PAPE 
R @:PEN 1:BORDER 1 


FOR I=1 TO 3 


2029 LOCATE I#5,4:PRINT CHRS(128)CHRS(129):LOCATE 
I#5,S:PRINT CHR$(130)CHRS(131) 


2030 
26040 
2050 
2060 
2070 
2080 
2098 
2980 
2998 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3148 
3150 
3160 
3170 
3180 


FOR J=6 TO 15 

LOCATE I#5,J:PRINT CHR$S(132) 

NEXT J 

LOCATE I#5,16:PRINT CHRS$(133)CHRS(134) 
NEXT ! 

LOCATE 1,1:PRINT "SCORE: " 

RETURN 

REM 
REM GRAPHIQUES 

SYMBOL 128,0,112,252,222,143,3,59,127 
SYMBOL 129,4,0,30,63,115,97,65,240 
SYMBOL 1306,250,228,201,261,145,27,21,17 
SYMBOL 131,248,188,62,30,14,14,12,8 
SYMBOL 132,27,21,17,17,27,21,17,17 
SYMBOL 133,91,53,17,153,149,83,49,255 
SYMBOL 134,0,68,72,80,32,80,136,254 
SYMBOL 135,0,60,126,255,255,255,255,126 
SYMBOL 136,255,85,186,63,199,197,103,51 
SYMBOL 137,254,84,172,248,198,70,204,152 
SYMBOL 138,31,15,15,15,14,12,28,56 
SYMBOL 139,240,224,224 224,224, 96, 112,56 
AS(1)= CHRS(136)+CHRS(137)+" 
BS(1)=CHRS(138)+CHRS(139)+" Û 


= 0 D D D D A D OMR un nb OMR ie ou um ou um ne Ge On 4 ee ON 4 (D JS 


AS(2)=" MECHRS(136)+CHR$S(137)+" " 
BS(2)=" "+CHRS(138)+CHRS(139)+" : 
A$(3)=" “+CHRS(136)+CHRS(137) 
B$(3)=" "+CHRS(138)+CHR$S(139) 
RETURN 
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PROGRAMME 


LISTE 


DES VARIABLES : 


74 


Lignes 30 à 80 : initialisation 

Après la définition des caractères graphiques (sous- 
programme en 3000), on dimensionne un tableau C pour 
connaître à tout moment la position des noix de coco sur 
l'écran. 

Le sous-programme en 2000 dessine le jeu et celui en 
1000 affiche les vies restantes. 


La ligne 70 initialise les diverses variables (voir liste des 
variables). 


Lignes 200 à 470 : le jeu 


La boucle J des lignes 200 à 360 permet d'examiner à la 
suite les trois cocotiers. La boucle |, par contre, permet 
d'examiner les 9 positions possibles des noix de coco sur 
chaque arbre. 


À chaque boucle J, on teste le clavier et l'on modifie la 
position du singe (variable P) en utilisant une fonction 
logique (ligne 210). 

La ligne 310 teste si le singe se trouve bien sous la noix de 
coco qui arrive sur le sol. Si ce n est pas le cas, on va 
directement en ligne 420 pour enlever une vie. 


Si le nombre aléatoire qui vient d'être tiré est inférieur au 
niveau en cours (variable N), on place dans le tableau C 
une nouvelle noix de coco (lignes 390 à 410). 


Les lignes 420 à 470 enlèvent une des vies (variable V). 
S'il n’en reste plus, le programme effectue un RUN dès 
qu'une touche est appuyée. 


AS dernière touche appuyée 

A$() et B$() dessin des singes pour les trois positions 
(A$=première ligne, B$=deuxième ligne). 

C(,) tableau des positions des noix sur chaque 

cocotier 

dernière valeur de Q 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

niveau du jeu 

position du singe 

pointeur dans le tableau C 

nombre de points 

nombre de vies restantes 


AO TO 
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AUTOROUTE 


Aidez ce fou du volant qui a pris l’autoroute sur la voie 
inverse à faire le plus de kilomètres possible sans accident. 


Pour lui faire éviter tout ce qui surgit en face de lui, pilotez 
Sa voiture à l’aide des touches P et Q. 


Si, par malheur, un accident se produisait quand même, le 
programme donne alors le nombre de kilomètres 
parcourus sans accident. 


En tapant Sur une touche du clavier, vous retrouverez le 
conducteur imprudent qui a plus que jamais besoin de 
VOUS. 


s 


ie «à 


ni 
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10 REM AUTOROUTE 


28 RE 


38 S 


M = 
YMBOL AFTER 128: GOSUB 1000 


40 MODE 1:INK 8,1:INK 1,24:INK 2,13:INK 3,6:PAPER 
O:-PEN 1:BORDER 1 
56 RANDOMIZE TIME 


60 INPUT "NIVEAU (1 OU 2)";N 

70 IF N<1 OR N>2 THEN 69 

80 N=N+1 

96 X=18 

100 P=0 

180 REM ------------------------------- 
199 REM LE JEU 

200 A=INT(RND(1)#16)+11 


210 


PEN 1:LOCATE 16,24:PRINT CHR$(136)::PEN 2:PRIN 


T TAB(A); CHR$S(132); CHR$(134); 


208 PEN ie PRINT TAB(28); CHR$(136) 

230 PEN 2:PRINT TAB(A); CHRS (133): CHR$(135) 

240 FOR I=1 TO N:PRINT:NEXT 

256 AS=INKEYS:IF A$S<>"" on C$S=AS 

260 IF C$="P" AND X<26 THEN X=X+1 

270 IF C$="Q" AND X>11 THEN X=X-1 

280 P=P+1 

290 PEN 3:LOCATE X,1:PRINT CHR$(128); CHR5S(130) 

306 PRINT TAB(X): CHR$(129); CHR$(131) 

310 IF TEST(X#“16, A 0 AND TEST(X#16-16,365)=0 AN 
D TEST(X#16+16, 365)=0 THEN 200 

380 REM ----------------_-- 

396 REM FIN 

400 FOR I=0 TO 5 

410 PRINT CHR$(7) 

420 LOCATE X+I+1,I+1:PRINT " ":PRINT TAB(X+I+2);CH 
R$(138) 

430 LOCATE X-I,I+1:PRINT “ ":PRINT TAB(X-I-1});CHRS 
(128) 

440 LOCATE X+I+1,1+2:PRINT " ":PRINT TAB(X+1+3):CH 
R$(131) 

450 LOCATE X-I,I+2:PRINT " ":PRINT TAB(X-I-2);CHRS 
(129) 

468 NEXT I 

470 CLS 

480 PRINT P;" KILOMETRES" 

490 AS=INKEYS:IF A$="" THEN 498 

508 GOTO 98 

980 REM ---------------__-- 

998 REM GRAPHIQUES 

1008 SYMBOL 128,2,55,55,63,55,55,7,5 

1910 SYMBOL 129,5,6,3,11,15,11,3,1 

1020 SYMBOL 130,64,236,236,252,236,236,224,160 
1030 SYMBOL 131,160,96,192,208,249,208,192,128 
1040 SYMBOL 132,1,3,11,15,11,3,3,3 

1858 SYMBOL 133,3,3,3,55,55,63,55,51 

1068 SYMBOL 134, 128. 192, 208. 240. 208, 192,192,192 
10/70 SYMBOL 135, 192. 192; 192, 236, 236, 252,236,204 
1080 SYMBOL 136. 64, 60, 60, 60. 60, 60, 60, 60 

1099 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 100 : initialisation 


On définit les caractères graphiques des voitures par le 
sous-programme en 1000. 


La variable X donne la position de départ de la voiture du 
joueur et P le nombre de kilomètres parcourus. 


La variable N saisie au clavier détermine la rapidité du jeu. 


Lignes 200 à 310 : le jeu 


Le nombre aléatoire contenu par la variable À donne 
l'emplacement de la voiture en sens inverse. Celle-ci est 
affichée simplement par une fonction PRINT ce qui a pour 
effet de faire monter l'écran de deux lignes vers le haut. 


La ligne 250 teste le sens de déplacement donné par la 
touche tapée au clavier. 


Si un déplacement est effectué, on modifie la valeur de la 
variable X avant d'afficher à l'écran le dessin de la voiture 
(lignes 260 à 300). 


Si des caractères différents de 0 (couleur du fond) sont en 
face de la voiture du joueur (testés par TEST), on va 
directement à la fin du jeu (ligne 400). 


Lignes 400 à 500 : fin de partie 


Des caractères différents de 0 se trouvant devant la voiture 
du joueur, on affiche le nombre de kilomètres parcourus 
avant de revenir à une autre partie dès qu’une touche est 
enfoncée. | 


position de la voiture en face 
dernière touche enfoncée 

sens du déplacement 

indice de boucle FOR/NEXT 
niveau du jeu 

nombre de kilomètres parcourus 
position de la voiture du joueur 


KXTZ£Z LE 
A2 
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CHAPITRE Il : 
JEUX DE REFLEXION 


LE 


LABYRINTHE EN 
TROIS 
DIMENSIONS 


Saurez-vous sortir de ce labyrinthe mystérieux ? 


Il comporte en tout 400 pièces (20 en largeur et 20 en 
longueur) et s'affiche en trois dimensions. 


Amstrad vous indique toujours la pièce où vous vous 
trouvez et dessine en plus une boussole pour ne pas vous 
perdre !| 

Si vous faites demi-tour, la trace de vos pas reste 
imprimée sur le sol. 

Il suffit de rentrer l'initiale de la direction choisie pour que 
l'ordinateur dessine la pièce où vous venez d'arriver. 

Dès que vous aurez trouvé la sortie, tapez une dernière fois 
sa direction et vous obtiendrez la vue d'ensemble du 
labyrinthe avec toutes les pièces que vous avez visitées. 

Ne croyez pas retraverser le labyrinthe plus rapidement que 
la première fois. Tous les labyrinthes sont différents ! 


PIECE: 17 , 
DIRECTION 7? 
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19 REM LABYRINTHE 3D 

20 REM ------- 2" 

30 SYMBOL AFTER 128:GOSUB 1400 

48 DFFINT A-Z 

59 RANDOMIZE TIME 

60 MODE 1:INK 06,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
O:PEN 1:BORDER 1:LOCATE 10,11:PRINT "GENERATION DU 
LABYRINTHE" 

70 DIM A(21,21),B(20,28) 

80 S(0)=4:S(1)=2:S(2)=1:S(3)=8:S$(@)="N": S$(1)="E" 
:S$(2)="S":S$(3)="0" 

99 SS$(@)="AU NORD ":SS$S$(1)="A L'EST ":SS$(2)="A 

U SUD ":SS$(3)="A L'OUEST" 

198 S=2:7(1)=22:7(2)=20:2(3)=22 

110 X(1)=1:X(3)=-1:Y(0)=-1:Y(2)=1 

120 PS=CHRS(137)+CHR$S(138)+CHRS(18)+CHRS(B)+CHRS(8 
)+CHR$S(139)+CHRS (140) 

130 AS=CHR$S(10)+CHRS (8): S$="S"+AS4+"O"+AS+MRIEASENT 
N+AS+UI'+AS+"E" 

SO RE 

198 REM CREATION 

200 X=10:Y=1:DE=10@ 

218 A(X,Y}=A(X, Y)}+4 

226 D=INT(RND»#5)+1 

230 ON D GOTO 240,270,300,330, 300 

248 IF Y-1=0 THEN 220 

250 IF A(X,Y-1) AND 4 THEN 360 

268 Y=Y-1:A(X,Y)=A(X, Y)+1:GOTO 408 

270 IF X+1=21 THEN 220 

280 IF A(X+1,Y) AND 4 THEN 360 

290 A(X,Y)}=A(X,Y}+2:X=X+1:GOTO 400 

300 IF A(X,Y+1) AND 4 THEN 368 

310 A(X,Y)=A(X,Y)+1:Y=Y+1:IF Y=21 THEN 500 

320 GOTO 400 

330 IF X-1=0 THEN 220 

340 IF A(X-1,Y) AND 4 THEN 360 

350 X=X-1:A(X,Y}=A(X,Y}+2:GOT0 400 

360 F=F+1:IF F<20@ THEN 220 

370 F=0:F1=F1+1:X=DE:Y=1:IF F1<9 THEN 220 

380 F1=0:F2=F2+1:1F F2<19 THEN 200 

398 RUN 

400 AUX, Y)=A(X,Y)+4:F20:GOTO0 220 

AO RM 

490 RE DESTRUCTION 

500 DA=X 

519 FOR J=1 TO 20 

520 Z=INT(RND»*5)+1 

530 FOR I=1 TO 20 

540 IF A(1,J)>3 AND Z<3 THEN 640 

550 A=INT(RND#2)+1:0N À GOSUR 580,610 
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560 IF B=06 AND I<>28 AND J<>20 THEN ON À GOSUB 610 
, 580 

570 B=8:GOT0 640 

580 IF J=20 OR A(I,J+1)>3 OR (A(I,9J)=1 AND 2>3) TH 
EN GOTO 608 

599 A(I,J)=A(I,J)+1:B=1 

6008 RETURN 

618 IF I=20 OR A(I+1,J)>3 OR (A(I,9)=2 AND 2>3) TH 
EN 630 

629 A(I,J)=A(I1,J)r2:B=1 

630 RETURN 

640 NEXT 

650 NEXT 

660 FOR I=1 TO 20-FOR J=1 TO 20 

670 IF A(I,J) AND 4 THEN A(I,J}=A(I,J)-4 

6804 NEXT-NEXT 

690 FOR I=1 TO 2@:FOR J=1 TO 20 

700 IF A(I-1,J) AND 2 THEN A(I,J)=A(I,J)+8 

710 IF A(I,9J-1) AND 1 THEN A(I,J)=A(I,J)+4 

720 NEXT:NEXT 

789 REM ------mm--mmmmmmsmmmmmmesm 

794 REM LE JEU 

800 X=10:Y=1 

818 CLS 

320 PLOT 248,358,1:DRAW 400,350:DRAW 400,150:DRAW 
240,1598:DRAW 248,350 

830 PLOT 240,350:DRAW 8@,400@:DRAW 80,100:DRAW 242, 
150 

840 PIOT 400,358:DRAW 568,400:DRAW 568,188:DRAW 40 

@,150 

850 LOCATE 31,22:PRINT CHR$(132):LOCATE 30,23:PRIN 

T CHR$S(133)CHRS(134)CHR$S (135); :LOCATE 31,24:PRINT 

CHR$S(136):LOCATE 31,25:PRINT S$((5+2) MOD 4) 

860 LOCATE 1,22:PRINT"'PIECE:";X","Y 

870 IF B(X,Y)}=1 THEN LOCATE 208,17:PRINT CHR$S(128)C 

HR$S(129):LOCATE 20,18:PRINT CHRS(130)CHRS(131) 

880 B(X,Y)=1 

890 FOR J=1 F0 3 

900 IF J=1 THEN I=(5+3) MOD 4 

918 IF J=2 THEN I=S 

920 IF J=3 THEN I=(S+1) MOD 4 

930 IF A(X,Y}) AND S(I}) THEN ON J GOTO 948,970,10800 
ELSE 1028 

94@ PLOT 120,116:DRAW 120,3480:DRAW 200,320:DRAW 20 

0,140:LOCATE 11,12:PRINT PS 

959 IF X=DA AND Y=28 AND I=2 THEN LOCATE 9,8:PRINIT 
5° 

960 GOTO 1028 

97@ PLOT 280,310:DRAW 360,310:DRAW 360,150:DRAW 28 

6,150:DRAW 280,310:LOCATE 21,11:PRINT P$ 
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980 IF X=DA AND Y=26 AND I=2 THEN LOCATE 18,5:PRIN 
T'SORTIE" 

998 GOTO 1020 

1808 PLOT 520,116:DRAW 528,340:DRAW 440,320:DRAW 4 
40,148:-LOCATE 31,12:PRINT P$ 

1810 IF X=DA AND Y=206 AND I=2 THEN LOCATE 29,8:PRI 
NT LEFTS(S$S,8):LOCATE 30,11:PRINT RIGHTS(S$,8) 


1924 
1030 
1040 


s=" ". 


1050 
1860 
1670 
1080 
1090 
1100 


LOCÂTE 27+J#2,Z(J)+1:PRINT S$(I) 

NEXT J 

LOCATE 1,24:PRINT"DIRECTION ?";:A$="";.WHILE À 
AS=INKEYS: WEND 

S=-] 

FOR I=06 TO 3 

IF A$=SS(1) THEN S=I 

NEXT I:IF S<ô THEN 1040 

IF A(X,Y) AND S(S) THEN 1110 

LOCATE 1,25:PRINT "PAS DE PORTE "; SS$(S); : GOT 


0 1040 


1110 
1120 
1130 
1180 
1190 
1200 
1210 
1228 
1230 
1240 
1250 


X=KX+X(S):Y=Y+Y(S) 

IF Y=21 THEN GOSUB 12980: RUN 
GOTO 814 

REM 
RFM DESSIN DU LABYRINTHE 

CLS 

FOR J=1 T0 26 

FOR I=1 TO 28 

IF B(I,J)=1 THEN PAPER 2 ELSE PAPER @ 

LOCATE I+1,J9+1:PRINT " " 

PLOT I#16,400-Jx16,1:DRAW I*16+14,400-Jx16:DR 


AW [#16+14,386-J*16:DRAW I*x16,386-J*16:DRAW I#16,4 
90-J*16 


1260 
1270 


IF B(IT,J)=1 THEN C=2 
IF A(I,J) AND 1 THEN 


ÉLSE 
PLOT 


C=0 
I*16+2,386-J*16,C:0D 


RAW Ix16+12,386-J*16 


1280 
DRAW 
1298 


IF A(I,J) AND 2 THEN 
I#16+14,388-J*16 
IF A(I,J) AND 4 THEN 


PLOT 
PLOT 


I+16+14,398-J*16,C: 
1*16+2,400-J*16,C:0D 


RAW Tæ16+1?,400-J*16 


1300 


IF A(I,J) AND 8 THEN PLOT I*16,398-J#16,C:DRA 


W I*16,388-J16 


1310 
1328 
1330 
1348 
1380 
1394 
1400 
1410 
1420 
1430 
1440 


NEXT: NEXT 

PEN ! 

IF INKEYS<>CHRS(13) THEN 1330 
RETURN 

REM 
REM GRAPHIQUES 

SYMBOL 128,56,124,254,254,254,254,252,252 
SYMBOL 129,0,0,0,0,28,62,127,127 

SYMBOL 130,0,252,252,120,0,0,0,0 

SYMBOL 131,127,127,126,126,0,126,126,60 
SYMBOL 132,24,68,126,255,24,24,24,24 
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1450 
1460 
1470 
1480 
1498 
1500 
1510 
1520 
1530 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 


LISTE 


DES VARIABLES : 
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133,16,48,112,255,255,112,48,16 
134,24,24,24,255,255,24,24, 24 
135,8,12,14,255,255,14,12,8 
136,24,24,24,24,255,126,60, 24 
137,1,3,2,2,3,1,0,7 


138,222,63,255,255,63,222,0,240 

139,4,5,5,4,4,4,4,7 

140,16,208,208,144,144,144,16,240 

A(,) contient la représentation du labyrinthe 

(,) B(X,Y)=1 si la pièce a déjà été visitée 

AS choix du joueur 

B B=1 si l'on a déià détruit une partie de la 
case 

D sens du déplacement dans la création 

DA garde le numéro de la case d'arrivée 

DE garde le numéro de la case de départ 

F,FietF2 compteurs indiquant le blocage du chemin 
gagnant 

| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

S sens du déplacement du joueur 

S() valeur binaire correspondant aux quatre 
directions 

S$() choix possible du joueur 

SS$() idem à S$, mais en clair 

XetY coordonnées de la pièce où se trouve le 
oueur 


X(O) et Y() nombre de cases de déplacement dans les 
quatre directions 


Z si Z>2 on détruit la case adjacente au chemin 
gagnant 
Z() coordonnées sur l'écran de la boussole 
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PROGRAMME 


Lignes 30 à 130 : initialisation 

Après la définition des caractères graphiques, on initialise 
divers paramètres (voir liste des variables). 

Lignes 200 à 400 : création 


On crée dans le tableau À un chemin gagnant en partant de 
la case 10,1 jusqu'à la fin du tableau. Les cases sont 


représentées ainsi : 


On remarque que l'assemblage des cases donne une 
grille : 





Chaque case peut contenir un de ces quatre chiffres : 


binaire décimal forme de la case 
00 0 la case est complète 
01 1 | on supprime la barre du 
bas 
10 2 — on supprime la barre du 
haut 
11 3 la case est vide 


En effet, on utilise le poids binaire de chaque case pour en 
déterminer la forme. 0 correspond à une case complète, 
ce qui évite d'initialiser le tableau A au début du jeu. On 
gagne ainsi un temps précieux 

De plus, on ajoute 4 (100 binaire, ce qui ne change pas le 
résultat du tableau précédent) pour chaque case 
correspondant au chemin gagnant. On peut alors vérifier si 
l'on est déjà passé sur une case en testant le troisième bit. 


Il arrive parfois qu’un chemin soit bloqué s’il boucle sur 
lui-même : 





Dans ce cas on revient à la première ligne pour créer un 
nouveau chemin (rôle des compteurs F, F1 et F2). 
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Lignes 500 à 720 : destruction 


Si l’on éditait tout de suite le labyrinthe, on obtiendrait 
quelque chose dans ce genre : 





Il faut donc détruire toutes les autres cases en supprimant 
Soit la barre verticale, soit la barre horizontale. Dans le cas 
des cases adjacentes au chemin gagnant, on supprime une 
de ces barres si la variable aiéatoire Z est supérieure à 3, 
ce qui ajoute des « culs-de-sac ». 


L 


labyrinthe de l'exemple précédent après destruction 


Lignes 800 à 1130 : le jeu 

Le programme dessine à l'écran la pièce X,Y à partir du 
tableau À. La variable DA donnant le point d'arrivée, la 
ligne 950 ou 980 ou 1010 affiche le mot SORTIE au-dessus 
de la porte concernée. 

Si VOUS êtes déjà passé dans une pièce ( B(X,Y)=1 ), on 
affiche en plus la trace de vos pas. 

Les lignes 1040 à 1130 saisissent la direction que vous 
voulez prendre. En cas d’impossibilité, on revient en ligne 
1040. 


Lignes 1200 à 1340 : dessin du labyrinthe 


Si VOUS avez trouvé la sortie (Y=21), le programme affiche 
le labyrinthe complet vu de dessus et en mettant un point 
dans les pièces où vous êtes passé (renseignements 
donnés par le tableau B). 
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CHIEN 
DE BERGER 


Ce jeu a pour inspiration les fameuses compétitions de 
chiens de berger en Ecosse. 


Le gagnant est celui qui ramène le plus vite possible tout 
un troupeau de moutons dans son enclos. 


Ici le chien de berger peut diriger de cinq à neuf moutons 
selon les parties. Vous devez le déplacer avec les quatre 
flèches et valider le mouvement en tapant sur ENTER. 


A ce moment tous les moutons bougent et seuls ceux qui 
sont vraiment près de l’enclos y pénètrent définitivement. 
Les autres s’éparpillent de plus en plus dans le pâturage et 
le pauvre chien n’a plus qu'à les rabattre à nouveau vers 
lenclos. 


Bien sûr, il s’agit d'utiliser le moins de coups possible. Le 
nombre d'essais s'affiche d’ailleurs dès que tous les 
moutons sont dans l’enclos. 
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19 REM CHIEN DE BERGER 


REM 
30 MODE 1:INK 0,1:INK 1,15:PAPER @:PEN 1:BORDER 1 
40 DIM X(18),Y(106) 


686 E=0 
76 SYMBOL AFTER 128 

86 SYMBOL 128,0,4,6,124,188,164,18,0 

98 SYMBOL 129,0,2,67,62,62,62,34,0 

106 SYMBOL 130,24, 60,126,255, 255. 126,60, 24 

118 SYMBOL 131,56,124,56,56,16,124, 254,187 

126 SYMBOL 132,185, 249,57,41,41,41, 41,239 

138 SYMBOL 133,255, 255. 255,255,255, 255,255, 255 

148 SYMBOL 134,0,24,24:24,24,24,24 0 

150 RANDOMIZE TIME 

180" REM "sms 

196 REM DESSIN DU JEU 

260 PLOT 6,6:DRAW 632,6:DRAW 632,392: DRAW 6, 392: DR 
AW 6,6 

218 PLOT 8,8:DRAW 630,8:DRAW 630, 390:DRAW 8, 398: DR 
AW 8,8 


220 LOCATE 1,1:PRINT CHR$(133):LOCATE 40,1:PRINT C 
HR$ (133) 

230 LOCATE 1,25:PRINT CHR$(133);:LOCATE 40,25:PRIN 
T CHR$(133); 

240 FOR I=5 TO 38 STEP 5 

250 LOCATE I,1:PRINT CHR$(138@):LOCATE I,25:PRINT C 
HR$(138); 

268 IF I<25 THEN LOCATE 1,1:PRINT CHRS$(138):LOCATE 
46,I:PRINT CHR$(138) 

270 NEXT I 

O0 RE 

298 REM AFFICHE BERGER, CHIEN, MOUTONS 

308 X=INT(RND(1)#13)+2 

318 Y=INT(RND(1)#19)+2 

320 LOCATE X,Y:PRINT CHRS(131):LOCATE X,Y+1:PRINT 
CHR$S(132) 

336 V=INT(RND(1)*10)+16:W=INT(RND(1)#15)+2 

348 LOCATE V,W:PRINT CHRS$(138);"----"; CHRS(130) 
350 FOR I=W+1 TO W+4:LOCATE V+5,I:PRINT CHR$(134): 
NEX 


360 LOCATE V,W+5:PRINT CHR$(138);"----"; CHRS(138) 
370 W=W+1 

380 N- S+INT(RND(1)#5) 

398 FOR I=1 TO N+ 

480 X(1)= INT (RAD (1 )#14)42 

418 Y(I)=INT(RND(1})#20)+2 

420 IF TEST(X(I)*16-8,408-Y(I)*16)<>0 THEN 400 
430 IF I=N+i THEN LOCATE X(I),Y(I):PRINT CHRS(128) 
:X=X(1):Y=Y(1):GOTO 458 

440 LOCATE X(1),Y(I):PRINT CHR$(129) 

450 NEXT I 

489 REM -------------"- 

499 REM DEPLACE CHIEN ET MOUTONS 

5086 DS$=INKEYS:IF D$="" THEN 500 

510 IF DS$=CHR$(13) THEN E=E+1:GOTO 580 

520 LOCATE X,Y:PRINT * " 
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530 
16) 
540 
16)= 
550 
16)= 
560 
16) 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


IF D$=CHRS(242) THEN IF TEST((X-1)#16-8,408-Y» 


=Q THEN X=X-1 


IF D$=CHRS(243) THEN IF TEST((X+1)#16-8,408-Y» 
=0 THEN X=X+1 
IF DS=CHRS(248) THEN IF TEST(X“16-8,408-(Y-1)» 
0 THEN Y=Y-1 
IF DS=CHRS(241) THEN IF TEST(X*16-8,408-(Y+1)+ 


=0 THEN Y=Y+1 


LOCATE X,Y:PRINT CHR$(128):GOTO 596 
FOR J=1 TO 5 

F=0 

FOR I=1 TO N 

LOCATE X(I1),Y(I):PRINT “ * 

IF X(I)<V OR X(I1)>V+4 THEN 688 

IF Y(I)<W OR Y(I)>W+3 THEN 680 
F=F+1 

IF TEST((X(I1}+1})#16-8,408-Y(I1)}#16)<>8 THEN 796 
X(I)=X(I)+1 

GOTO 798 

AX=X(I):AY=Y(I) 


690 IF Y(I)=2 THEN Y(I)=3:GOTO 770 

700 IF Y(1}=24 THEN Y(I)=23:GOTO 778 
710 IF Y<Y(I) THEN Y(I)=Y(1)+1 

7206 IF Y>Y(I) THEN Y(I)=Y(1)-1 

730 IF X(I1)=2 THEN X(1)=3:GOTO 770 

740 IF X(I)=39 THEN X(1)=38:GOTO 770 
750 IF X<X(I) THEN x(DI2X(1)+1 

768 IF X>X(I) THEN X()2X(T = 

770 IF TEST(X(I)*#16-8,408- Y(1)*16)-0 THEN 790 
780 X(I)=AX:Y(I)=AY 

798 LOCATE X(I),Y(I):PRINT CHRS(129) 
800 NEXT I 

818 IF F=N THEN 900 

820 NEXT J 

830 GOTO 508 
RE 
890 REM FIN 

900 LOCATE 15,23:PRINT E; "ESSAIS"; 

918 FOR I=1 TO 26:PRINT CHRS(7)::FOR J=1 TO 20: NEX 
T:NEXT 

920 IF INKEYS="" THEN 920 

938 RUN 


LISTE AX et AY anciennes coordonnées d'un mouton avant 
déplacement 


DES VARIABLES : | D$ dernière touche appuyée 
nombre d'essais 
F nombre de moutons dans la bergerie 
| indice de boucle FOR/NEXT 
J indice de boucle FOR/NEXT 
N nombre de moutons 
VetW coordonnées de la bergerie 
XetY coordonnées du chien 


X()et Y() coordonnées des moutons 
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PROGRAMME 


Lignes 30 à 150 : initialisation 


Après le dimensionnement des tableaux X et YŸ pour 
connaître à tout moment la position des moutons, on 
définit par SYMBOL les caractères graphiques. 


Le compteur F donne le nombre de moutons déjà dans la 
bergerie, tandis que E compte le nombre d'essais à chaque 
partie. 


Lignes 200 à 270 : dessin du jeu 


Cette partie du programme affiche à l'écran la clôture du 
pâturage où se trouvent les moutons avec les caractères 
graphiques définis dans l'initialisation. 


Lignes 300 à 450 : affiche berger, chien et moutons 


Ces trois éléments sont affichés sur l'écran à des positions 
aléatoires. Les coordonnées du chien sont sauvegardées 
dans les variables X et Ÿ, et celles des moutons dans les 
tableaux X() et Y(}. C'est la variable N qui détermine le 
nombre de moutons (entre 5 et 9). 


La bergerie est aussi déplacée à chaque partie. Ses 
coordonnées sont conservées dans les variables V et W. 
Lignes 500 à 570 : déplacement du chien 


La touche appuyée étant stockée dans la variable D$, on 
modifie en conséquence les variables X et Ÿ si aucun 
élément sur l'écran ne s'y oppose (testé par TEST). 


Si cette touche correspond à ENTER du clavier (code 13), 
on va en 580 pour le déplacement des moutons. 
Lignes 580 à 830 : déplacement des moutons 


Chaque mouton est déplacé à tour de rôle cinq fois de suite 
dans la direction qui l’éloigne le plus du chien. 

S'H se trouve dans la bergerie (coordonnées V et W), on 
incrémente le compteur F. Le mouton ne peut alors plus en 
sortir. 

Si le compteur F est égal à N, on va directement à la ligne 
900 pour la fin du jeu. 


Dans le cas contraire, on revient en ligne 500 pour un 
nouvel essai. 
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MISSIONNAIRES 
ET 
CANNIBALES 


Ne vous fiez pas à la mine angélique des six personnages 
qui vont apparaître sur votre écran. En effet, les trois 
cannibales guettent le premier moment d'inattention des 
trois missionnaires pour les précipiter dans leurs marmites 
bouillantes. 


Pourrez-vous les faire tous passer sur l’autre rive en 
sachant que les missionnaires ne doivent jamais être en 
minorité sur l’une des deux berges ? 


Vous avez à votre disposition une barque qui ne peut 
prendre plus de deux passagers par traversée. À chaque 
voyage, l'ordinateur vous demande le nombre de 
cannibales ou de missionnaires à installer dans la barque 
(tapez 1 pour cannibale, 2 pour missionnaire et O s’il n’y a 
pas de deuxième passager). Puis la barque déposera ses 
voyageurs sur l’autre rive et devra en ramener au moins un 
Sur la première. 


Attention : dès que les cannibales deviennent plus 
nombreux que les missionnaires sur l’une des rives, ils 
entraînent automatiquement leurs prisonniers dans leurs 
marmites. Dans ce cas, tapez sur n'importe quelle touche 
et VOS personnages ressusciteront pour un nouvel essai. 


À vous de trouver la meilleure tactique. 


o 


LR ee 
LA Lie 21 A 


LE IL DR | 
t 
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10 REM MISSIONNAIRES & CANNIBALES 
REM 


30 SYMBOL AFTER 128: GOSUB 908 

40 C(1)=0:C(2)=12:C(3)=0:C(4)=12 

50 P(I)E= 2. P(2)=5:P(3)=227:P(4)=33 

60 B=1:B(1)=14:B(2)=22 

70 . M(2)=3 

80 MODE 1:INK 6,1:INK 1,15:PAPER @:PEN 1:BORDER 1 
98 PLOT 8,150:DRAW 200,158 

198 PLOT 442,150:DRAW 636,150 

110 LOCATE 5,17:PRINT CHR$(157); CHRS(158);TAB(33): 
CHRS(157); CHRS (158) 

126 LOCATE 5,18: BRENT CHRS(159);CHR$(168); TAB(33);: 
CHRS (159); CHR$(168) 


189 REM -------"-" 

198 REM LE JEU 

209 LOCATE B(B),14:PRINT " “ 

218 LOCATE B(B)-1,15:IF B=1 THEN PRINT CHRS(155);:" 


* ELSE PRINT " "; CHR$S(156) 
228 LOCATE B(B),16:PRINT CHR$(152);: CHR$S(153); CHRS( 
153); CHR$(153); CHRS(153); CHR$(154) 
230 GOSUB. 700 
248 IF M(3)+M(4)=6 THEN 509 
290 IF (M(1)>M(2) AND M(2)<>8) OR (M(3)} >M(4) AND 
M(4)<>8) THEN 600 
268 FOR I=1 TO 2 
270 LOCATE 1,21:PRINT CHR$(18); "PASSAGER";I; "CAN. 
1/MIS.=2 ? ". 
280 PS=INKEYS:IF PS="" THEN 280 ELSE P=VAL(PS):1IF 
P<Q OR P>2 THEN 288 
290 IF I=1 AND P=Q@ THEN 288 
300 IF P-Q THEN 380 
316 IF B=-2 THEN 348 
320 IF M(P}=0 THEN 280 
330 M(P)=M(P)-1:GOTO 360 
340 IF M(B+P)=0 THEN 288 
350 M(B+P)=M(B+P)-1 
360 LOCATE B(B)-1+2#1,14:PRINT CHR$S(C(P)+128); CHRS 
(C(P)}+129) 
37/70 LOCATE B(B)-1+2#I,15:PRINT CHRS(C(P)+138);:CHRS 
(C(P)+131) 
380 NEXT I 
398 LOCATE 1,21:PRINT CHR$(18) 
406 GOSUB 708 
419 LOCATE B(B}),14:PRINT " ": LOCATE B(B)-1,1 
5S:PRINT * ": LOCATE B(B),16: PRINT ” 
420 B=B+1:IF B=3 THEN B-1 
430 IF B=2 THEN M(3)=3-M(1)}:M(4)=3-M(2):GOTO 200 
440 at 3-M(3):M(2)=3-M(4):GOTO 200 
480 REM ------------------------------- 
490 REM GAGNE 
909 LOCATE 4,20:PRINT"VOUS AVEZ ECHAPPE A LA MARMI 
TE” 
510 PRINT CHRS(7):LINE INPUT AS 
528 RUN 
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580 


REM 


596 REM PERDU 


600 LOCATE 4,28:PRINT 


PUE 
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619 PRINT CHRS(7):LINE INPUT AS 


620 
680 


RUN 
REM 


690 REM AFFICHE LE JEU 
768 FOR I=1 TO 4 
710 FOR J=1 TO 3 
720 G=C(1)+128 
730 FOR K=18 TO 15 


740 IF J<=M(I) THEN LOCATE P{I)+J#2,K:PRINT CHRS(G 


); CHR$S(G+1):GOTO 760 
59 LOCATE P(I}+Jx2,K:PRINT " " 


Fed 
7170 
788 
880 
890 
908 
910 
920 
930 
940 
950 
960 
970 
980 
998 
1000 
1010 
1020 
1030 
1040 
1058 
1060 
1070 
1088 
1090 
1109 
1110 
1120 
1130 
1140 
1150 
1160 
11/0 
1180 
1190 
1200 
1210 
1220 
1230 


G=G+2 


NEXT K,J,I 


RETURN 


REM 
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REM GRAPHIQUES 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


128, 
129, 
130, 
131, 
132, 
RES 
134, 
135, 
136, 


3,15,31,207,127,207,31,60 
0,192,224,204,248, 204,224, 
96,64,92,67,72,79,32,24 
24,8,232,8,72,200,16,96 
4,4,4,8,24,16, 32,32 
128,128,128,64,96,32,16,16 
72,72,88,152,168,72,16,16 
72,72,104,100,84:72,32, 32 
31,31,31,31,31,20,20,20 


248 


"VOUS AVEZ FINI DANS LA MARM 


SYMBOL 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOLE 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 


137,224,224, 224,224, 224,160,160, 168 


138,20,20,20,206,20,20,120,248 
139,160,160,168,160,160,160,120,124 
146,15,48,64,192,255,170,128,156 
141,240,12,2,3,255,171,1,57 
142,129,129,145,136,68,163,144,72 
143,129,129,137,17,34,197,9,18 
144,36,20,52,79, 126, 128, 128,128 
145,36,40,44,242,1,1,1,1 
146,140,148,148, vi Un 148,143,129 
147,49,41,41,41,41,41,241,129 
148,128,128,255, 32,32, 32,32, 32 


149,1,1,255,4,4,4,4,4 


158,32,32,63,12,12,12,124,124 
151,4,4,252,48,48,48,62,62 
152,255,128,128,64,32,16,8,7 
153,255,0,0,0,0,0,0,255 
154,255,1,1,2,4,8,16,224 
155,16,16,56,20,20,18,18,17 
156,2,2,7,10,10,18,18,34 
157,9,4,9,63,224,160,96,48 
158,32,144,32,240,28,20,24,48 
159,47,32,32,42,191,85,42,85 
168,208,16,16,176,244,168,80,168 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 120 : initialisation 

Après la définition des graphiques (sous-programme en 
900), on définit les tableaux C, P, B et M pour connaître à 
tout moment la composition du jeu sur chaque berge (M), 
leurs positions sur l'écran (P), les caractères graphiques 
qui les composent (C) et la position sur l'écran de la 
barque (B). 


Lignes 200 à 440 : le jeu 


La variable B donnant le numéro de la berge (B=1 gauche, 
B=2 droite), on affiche la barque à B(B). Puis les 
personnages sont affichés par le sous-programme en 700 
en fonction de M() et à la position P(). 


Dès la ligne 240, on vérifie s'ils sont tous sur la berge de 
droite. Si c'est le cas, on va en ligne 500 pour un message 
de félicitations. 


La ligne 250, elle, teste si le nombre de cannibales n'est 
pas supérieur à celui des missionnaires. C'est en ligne 600 
que l’on va, dans ce cas. 


Puis, c'est la saisie des passagers effectuée par une boucle 
FOR/NEXT. On vérifie bien évidemment qu'il y ait au moins 
un passager (ligne 290) et qu’il existe bien sur la berge les 
voyageurs que l’on veut embarquer (lignes 310 à 350). 


Ces vérifications étant faites, on affiche leurs têtes sur la 
barque (lignes 360 et 370). 


Pour finir cette partie du programme, on affiche à nouveau 
les personnages (sous-programme en 700), on efface la 
barque et on réajuste le tableau M suivant le numéro de la 
berge. 


Lignes 700 à 780 : affiche le jeu 


En fonction des tableaux M, P et C, on affiche à l'écran les 
six personnages sur les deux berges. La variable G pointe 
le premier des caractères graphiques. 


B numéros de berges: B-=1 berge gauche, B=2 
berge droite 

position des berges sur l'écran 

numéros des caractères graphiques 
correspondant à M) 

pointeur des caractères graphiques 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

position des missionnaires et des cannibales 
sur chaque berge 

P$ dernière touche enfoncée 

P choix des passagers 

P() position de chaque personnage sur l'écran 


AE, Ann, 
Sans” om” 


zx 
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PARITES 


Dès que vous aurez rentré le nombre de joueurs (jusqu'à 
5) et leurs prénoms, seize paires de figures diverses 
(cartes, téléphone, pièce de monnaie...) se dessinent faces 
cachées sur votre écran. 


Elles se présentent sur quatre lignes de huit colonnes, le 
but du jeu étant de retrouver les seize paires mélangées. 
Pour cela il faut retourner chacun à son tour deux cartes de 


façon à situer les positions des paires pour les 
reconstituer. 


Amstrad demande les coordonnées des cartes sous forme 
du numéro de ligne, puis du numéro de colonne. 

Il refuse les cartes déjà mises en paire et celles dont les 
coordonnées sont erronées. 


Dans le cas où l’un des joueurs trouve une paire, les cartes 
sont effacées de l'écran. 


Chaque paire trouvée fait obtenir un point et le gagnant 
peut rejouer. 


Quand toute la grille est vide, les résultats de tous les 
joueurs s'affichent. 


Ce jeu, apparemment simple, demande cependant une 
grande patience et une grande attention. 
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10 REM PARITES 

20 REM -------------------- 

36 SYMBOL AFTER 128: GOSUB 1209 

46 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
0:PEN 1:BORDER 1 

50 NJ=0:TP=0 

69 INPUT "NB DE JOUEURS ";JN 

70 IF JN<2 OR JN>5 THEN PRINT'"'ENTRE 2 ET 5":GOT0 6 
) 

89 FOR I=1 TO JN 

90 CLS:PRINT “NOM DU JOUEUR":I;:INPUT N$(I) 

1068 NEXT I 

119 AS(1)=CHR$S(196)+CHR$(193)+CHR$S(193)+CHRS (197) 
120 AS(2)=CHR$S(195)+"  "+CHR$S(194):A$(3)=AS$S(2) 
130 EL CHR$(197)+CHR$S(192)+CHR$S(192)+CHR$S (196) 
180 REM -----------mmmmmmmm mm 

198 sn INITIALISATION 

208 RANDOMIZE TIME 

219 K=90 

229 FOR I=1 TO 4 

2306 FOR J=1 TO 4 

248 C(I,J)=K:C(I+4,9)=K 

250 K- K+4 

260 NEXT J,I 

279 CLS: LOCATE 7,11:PRINT "MELANGE DES CARTES:" 
280 FOR I=1 TO 120 

2986 LIi=INT(RND#4})+1 

300 L2=INT(RND+#4)+1 

310 C1=INT(RND+*8)+1 

320 C2=INT(RND+8)+1 

330 A=C(CI1,L1)}:C(C1,L1)=C(Ce, L2): C(C2,12})=A 

340 LOCATE 26,11: PRINT 120-]: 

350 NEXT ]I 

380 REM ------------- nm -- - --- 

390 REM AFFICHE LES CARTES 

400 CLS:PEN 3 

410 FOR I=1 TO 8:PRINT TAB(1+I#4):I;:NEXT I] 

429 FOR J=9 TO 3 

430 PEN 3:LOCATE 3,3+J#4:PRINT J+1 

440 FOR I=0 T0 7 

458 FOR K=1i TO 4 

469 PEN 1:LOCATE 5+I#4,1+J#4+K:PRINT AS(K) 

470 NEXT K,I,J 

589 REM ------------------------------- 

590 REM LE JEU 

600 NJ=NJ+1:IF NJ>IJN THEN NJ-=] 

610 LOCATE 1,28:PRINT CHRS(18):NS(NJ}):" (":PINJ):" 
PTS }) 

62@ FOR I=1 TO 2 

630 LOCATE 1,21-PRINT "CARTE";I;":LIGNE( },COLONNE 
( )" 
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640 AS=INKEYS:IF A$="" THEN 640 ELSE Y(I)=VAL(AS) 
650 IF Y{(I)}<i OR Y(I1)>4 THEN 640 

660 LOCATE 16,21:PRINT AS 

670 AS=INKEYS:IF AS="" THEN 67@ ELSE X(I)}=VAL(AS) 
680 IF X(I)<1 OR X(I)>8 THEN 670 

698 LOCATE 27,21:-PRINT AS 

700 IF C(X(I)},Y(I})=-1 THEN 638 

710 IF I=2 AND X(1}=X(2) AND Y(1)=Y(2) THEN 630 
728 C=C(X(I),Y(I)}+128 

730 PEN 2: LOCATE 2+X(T)#4,Y(I)}#4-1: PRINT CHRS(C);cC 
HR$(C+2) 

740 LOCATE 2+X(I1)#4,Y(I)#4:PRINT CHRS(C+1); CHRS(C+ 
3):PEN 1 

759 NEXT I 

760 FOR I=1 TO GO8:NEXT ] 

770 IF no RE RE C(X(2),Y(2)) THEN 830 

780 FOR I- 

79 LOCATE Sa (Eyed, Y(I}#4-T:PRINT “  " 

800 LOCATE 2+X(I)#*4,Y(I)}#4:PRINT “ " 

810 NEXT I 

820 GOTO 680 

830 P(NJ)=P(NJ)+1 

840 FOR I=1 TO 2 

859 FOR J=1 TO 4 

860 LOCATE 1+X(I)#4,J+Y(I)x4-3:PRINT " " 

8/0 NEXT J,I 

880 C(X(1),Y(1))=-1: C(X(2), Y(2))=-1: TP=TP+1 

890 IF TP<16 THEN 619 

80 REM ------------ 

990 REM RESULTATS 

1908 CLS 

1010 LOCATE 14,5:PRINT "RESULTAFS" 

1828 LOCATE 5, 8: PRINT "NOM". : TAB(28@); "POINTS" 
1030 FOR I=1 TO UN 

1040 LOCATE 5,9+I#2:PRINT N$(I)};TAB(28):P(1) 
18654 P(I)=0 

1060 NEXT I 

10/06 LINE INPUT AS$ 

1080 TP-=0:GOTO 208 

1180 REM -------------- 

1190 REM GRAPHIQUES 

1208 SYMBOL 128,7,5,7,1,15,31,51,99 

1210 SYMBOL 129,111,7,7,3,3,3,3,15 

1226 SYMBOL 130, 240, 176, 240. 192, 248,252,230,207 
1230 SYMBOL EU 227, 224; 96, 96, 96, 96; 96, 120 

1248 SYMBOL REA 0,0,7, 4. 4, ji, 16. 19 

1256 SYMBOL 133, 19, 16, 16, 19, 18, 18, 10,1 

12689 SYMBOL 134, @, 192; 224. 32, 34, 250, 10, 202 

1279 SYMBOL 135, 202, 10, 19; 206. 70. 72, 8, 248 

1288 SYMBOL 136,9 ,3, 2. 16, de. 32, ,64, 97 

1290 SYMBOL 7 65, 33, 32, 16, 13, 8, Q 
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1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1528 
1550 
1540 
1558 
1560 
1570 
1580 
1590 
1600 
1610 
1628 
1630 
1640 
1650 
1660 
1670 
1680 
1698 
1/00 
1710 
1720 
1730 
1740 
1750 
1768 
1/70 
1/80 
1798 
1808 


SYMBOL 
SYMBOL 
SYMBOL 


SYMBOL 


SYMBOL 
SYMBOL 
SYMBOL 


SYMBOL 


SYMBOL 

SYMBOL 
SYMBOL 

SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 

SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMROL 
SYMBOI 

SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 

SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMROL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


138,0,128,96,16,56,72,132,12 
139,4,8,8,16, 96.128,00 
140,0,3,12,16,33,35, 69,65 
141,65,65,33,33,16,12,3,0 
142,0,192,48.8,4,116, 66.98 
143,66,66,4,4,8,48,192,8 
144,0,63,196,159,228,9,18,36 
145,40,40,36,34,33,32,63, 24 
146,0,252,35,249, 39,144, 72,36 
147,20,20,100,100,148,4.252 24 
148,127,64,84 92,72,64,64, 66 
149,67,65,64,B4,92,72, 64,127 
150,252,4,84:116.36,4 4 132 
151,132,4,4,84,116, 36,4. 252 
152,255,68,68,255,17,17,255,68 
153,68,255,17,17,255.68.68,255 
154,255,68,68.255,17.17.255. 68 
155,68,255,17,17,255,68.68,255 
156,63, 32,36,32,32,36,32,63 
157,32,32,32,32,36, 32,63 0 
158,252,4,36,4,4,36,4. 252 
159,4,36,4,4,4 4 252, @ 
1606,3,6,10,18, 34,74, 130,146 
161,131,164,137,144:164 192,255, 0 
162,255,1,73,1,73,1,73,1 
163,255,2,36,8,144,32,192,0 
164,1,64,200,48,25,141, 95, 35 
165,83,139,11,3,3,3,3. 
166,32,162,68,136. nu 128,241 
167,202,164,146,168,128,128,126,192 
168,0,0,12,30,63,127,127,63 


169,30,12,0,0,0,0,0,0 
170,7,26,100,132,8,136,144 16 
171,24,60,126,255,255,126,60, 24 
172,0,0,3,1,1,1,1,1 
173,7,3,7,31,11,23,44,120 


1/4,128,126,224,64,192,64,192,64 
175, 240, 96, 240, 252; 184, 244, 26, 15 
176, 65; 96, 192, 135, 148, 152, 248, 152 
177,24, 48, 96, 192, 255, 0 

178, 252, 6, ., 225, 49, 25. 31, 25 

179, . 12, 6, D. 255, 128, 192, 192 


180, 4, ,19, 31, 255, 27 ds, 31 
181, 1. oi, de, 63, 63, 127,31, Ô 
182, 192, 224, 02, 255, 254, 254, 254,252 


1593-7292, 252, 254; 254, 255, 252, 128, @ 
184,0, O, Ô, o, 0, 7, 4, 127 

185, 127, 255, 255, 255, É99,699,187/,08 
186, 0, 7, 24, 44, 206, 199, 151, 129 

187, 128; 192, 192, 192, 128, 128, 0,0 
188, 1, ?. L>, 63, 255, 80, 76, 69 


Super jeux Amstrad 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1898 
1908 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 


LISTE 


DES VARIABLES : 


189,65,65,73,68,35,17,8,7 
198,0,192,224, 248,254. 20,102,70 
191,6,6,38,70,138,21,39,197 
192,0,0,0,0,0,0,0.255 
193,255,0,0,0,0,0.0,0 
194:1,1,1,1,1,1, 


195,128, 128, 
196,1,2,4,8, 
197, 128,64 13 


A$ 
A$() 

C 

C(,) 

C1 et C2 
J 

JN 


K 
L1 et L2 


N$() 

NJ 

P() 

TP 
X() et Y() 


128, 
16,32,64,128 
2,16,8,4,2,1 


dernière touche appuyée 

dessin des cartes 

pointeur des caractères graphiques pour 
l'affichage 

tableau des cartes 

nombres aléatoires pour le mélange des 
cartes 

indice de boucie FOR/NEXT 

indice de boucle FOR/NEXT 

nombre de joueurs 


indice de boucle FOR/NEXT 


nombres aléatoires pour le mélange des 
cartes 

nom des joueurs 

numéro du joueur 

total des points de chaque joueur 

total des points 

coordonnées des cartes choisies 
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8 128, 128,128,128,128 


PROGRAMME 


Lignes 30 à 350 : initialisation 


Après la définition des caractères graphiques (sous- 
programme en 1200), on saisit au clavier le nombre et le 
nom des joueurs et on place dans le tableau A${ ) le dessin 
des cartes. 


Le numéro des caractères graphiques de chaque carte 
étant placé dans le tableau C(,), on mélange ce dernier en 
utilisant les quatre nombres aléatoires C1, C2, L1 et L2. 


Lignes 400 à 470 : affichage des cartes 

On affiche à l’écran les 32 cartes avec les caractères 
contenus dans le tableau AS. 

Lignes 600 à 820 : le jeu 


Après la saisie dans la variable A$, les numéros de lignes 
et de colonnes sont placés respectivement dans les 
tableaux Y() et X(). 


Dans le cas où ces deux cartes sont identiques, on saute 
directement à la ligne 830; sinon, on les retourne après 
une petite boucle d'attente. 


Lignes 830 à 890 : cas des cartes identiques 


On incrémente le total des points du joueur (tableau P), 
puis l’on efface de l'écran les cartes désignées. 

Si le total des cartes effacées est inférieur à 16, on 
continue normalement le jeu mais en gardant le même 
joueur (ligne 610 au lieu de 600). 


Lignes 1000 à 1080 : résultats 


On affiche le nom et le nombre de points de chaque joueur 
(tableaux NS et P). 
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We 
jo 


CHAMP DE 
CAROTTES 


C'est un jour d'hiver bien froid et maître lapin ne voit plus 
qu'une carotte dans le fond du champ. Il va essayer d'aller 
la déterrer, tout en sachant que les villageois ont tendu des 
pièges sous l'herbe. 


Heureusement qu'il porte sur lui son fidèle détecteur 
électronique. 


Le détecteur inscrit en haut à gauche de l'écran le nombre 
des pièges qui entourent le lapin, en comptant aussi tous 
ceux qui composent la bordure du champ. 


Vous n'avez plus qu'à guider logiquement votre lapin en 
utilisant les quatre touches de déplacement. 
Que vous ayez évité ou non les pièges, vous découvrirez à 


chaque fin de jeu leur plan précis avec votre nombre 
d'essais parfois impressionnant. 


Si votre lapin, toujours affamé, veut repartir à la recherche 
d'une autre carotte, appuyez sur ENTER. 
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19 REM CHAMP DE CAROTTES 

20 REM -------—--—--------m me 

30 DIM E(40,25):SYMBOL AFTER 128:GOSUB 808 

40 X(1)=1:X(2)=-1 

59 Y(3)=1:Y(4)=-1 

60 MODE i:INK @,1:INK 1,24:INK 2,6:INK 3,8:-PAPER @ 
: PEN 1:BORDER 1! 

70 RANDOMIZE TIME 

80 FOR I=1 TO 106 

90 X=INT(RND#38)+2 

100 Y=INT(RND#*19})+4 

119 IF E(X,Y)=1 THEN 90 

126 E(X,Y)=1 | 

130 NEXT I 

140 PEN 1 

100 REM === se nmmeenssesemne 

190 REM AFFICHE LE JEU 

208 FOR I=2 TO 48 

210 LOCATE I,2:PRINT CHR$S(129):LOCATE I,24:PRINT C 
HR$S(129) 

220 IF I<25 THEN LOCATE 1,I:PRINT CHR$(129):LOCATE 
49,I:PRINT CHR$S(129) 

236 NEXT I 

249 PEN 1:LOCATE 29,3:PRINT CHRS(1380):PEN 2:LOCATE 
20,23:PRINT CHR$S(128) 

258 X=20:Y=23 

268 E=8 

200 REM--er-e-sse-esSssesssenesensss 

298 REM NB DE PIEGES 

300 P-6 

319 FOR I=1 T0 4 

320 IF E(X+X(I1),Y+Y(I))=1 OR TEST((X+X(I))+16-8,40 
6-(Y+Y(I))#16)=1 THEN P=P+1 

330 NEXT I 

340 LOCATE 5,1:PEN 2:PRINT "PIEGES:";:PEN 3:PRINT 
P; 

350 PEN 2:PRINT TAB(25);"ESSAIS:";:PEN 3:PRINT E:P 
EN 2 

JOU REM === sites se eme en 

390 REM DEPLACEMENTS 

489 AS=INKEYS:-IF A$S="" THEN 400 

410 IF AS=CHR$S(243) THEN D=1:GOT0 468 

42Q IF AS=CHR$S(242) THEN D=2:G0T0 468 

4304 IF AS=CHRS(241) THEN D=3:GO0T0 468 

444 IF AS$S=CHRS(240) THEN D=4:GO0OT0 468 

458 GO0T0O 4080 

460 PAPER 3:LOCATE X,Y:PRINI “ ":PAPER 6 

478 X=X+X(D):Y=Y+Y(D) 

480 IF FIX ,Y})=1 OR TEST(X#16-8,406-Y#*16)=1 THEN 60 
Q 

499 IOCATE X,Y:PRINT CHRS(128) 
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506 E=E+1 

518 GOTO 308 

580 REM --------" 

590 REM FIN DE PARTIE 

600 IF X=20@ AND Y=3 THEN FOR 1=500 TO 50 STEP -5:5 
OUND 1,1,2:NEXT:GOTO 648 

610 FOR I=6 TO 15 

620 PRINT CHR$(7);:BORDER I:FOR J=1 TO 60:NEXT 
630 NEXT I 

640 FOR I=1 TO 39 

650 FOR J=3 TO 22 

660 IF E(I,J)=1 THEN LOCATE I,J:PRINT CHRS$(129) 
670 NEXT J,I 

680 LINE INPUT AS 

698 RUN 
RE 

790 REM GRAPHIQUES 

800 SYMBOL 128,231,36,60,126,90,126, 36, 24 

810 SYMBOL 129,120,2064,230,179,153, 141,199, 254 
820 SYMBOL 130,36,36,24,60,60,60,60, 24 

836 RETURN 
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PROGRAMME 


LISTE 


DES VARIABLES : 


104 


Lignes 30 à 140 : initialisation 


On place dans les tableaux X() et Y() le nombre de 
caractères de déplacement correspondant aux quatre - 
directions. 


Puis on place dans le tableau E les pièges à des positions 
aléatoires (100 pièges au total). 
Lignes 200 à 260 : affiche le jeu 


Cette partie du programme affiche simplement des pièges 
au bord de l'écran (visibles cette fois) ainsi que le lapin et 
la carotte. 


Les variables X et Y donnent la position exacte du lapin. 


Lignes 300 à 350 : nombre de pièges 

Pour connaître le nombre de pièges autour du lapin, il 
suffit de tester le tableau E à l’aide des tableaux X et Y. 
Lignes 400 à 510 : déplacements 


Le caractère saisi au clavier étant stocké dans la variable 
A$, on modifie suivant sa valeur la variable D. 


Avant d'afficher le lapin, on place un carré violet sur son 
ancienne position. 


La ligne 480 teste si le lapin n'est pas sur un piège ou sur 
la carotte. 
Lignes 600 à 690 : fin de partie 


Quelle que soit l'issue du jeu, on affiche à l'écran tous les 
pièges jusqu'alors invisibles en testant le tableau E. 


A$ caractère saisi au clavier 
direction du déplacement 

E nombre d'essais 

E() position des pièges sur l'écran 

| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

P nombre de pièges autour du lapin 

X et Y coordonnées du lapin 


X() et Y() nombre de caractères de déplacement dans 
les 4 directions. 
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BALISTIQUE 





Prenez deux voisins qui ne s'entendent pas, leurs maisons 
et le mur qui les sépare. 

Is n'ont de cesse de s’envoyer réciproquement des 
projectiles afin de détruire l'habitation adverse. 

Selon les lois de la civilité, ils tirent chacun à leur tour, en 
réglant soigneusement leurs angle et puissance (de 0 à 90) 
d’après la force et le sens du vent qui souffle ce jour-là, et 
l'éloignement de la cible. 

Les deux joueurs qui les représentent se servent des 
flèches gauche et droite et valident leurs coordonnées en 
appuyant Sur ENTER. 

Le premier des deux adversaires qui détruit au moins 

10 éléments d'une maison est considéré comme gagnant. 


Qu'à cela ne tienne : la revanche ne va pas tarder | 


22248-22148 68-9677" 
PUISSANCE DU JOUEUR DE GAUCHE 
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19 REM BALISTIQUE 

20 REM -----------—----—--m-mmmmmme 

36 SYMBOL AFTER 128: GOSUB 1300 

40 RANDOMIZE TIME 

59 MODE 1:INK @0,11:INK 1,24:INK 2,14:INK 3,15:PAPE 

R 2:PEN 1: BORDER 11 

69 X=INT(RND#12)+1 

79 P(1)=X+5 

80 GOSUB 1008 

99 X=INT(RND*12)+24 

199 P(2)=X-1 

110 GOSUB 1000 

120 PAPER @:PEN 3:PRINT:PRINT STRINGS(39,"-") 

130 FOR I=8 TO 17:LOCATE 29,I:PRINT CHR$(144):NEXT 
I:PEN 1 

140 VV=INT(RND*S5)+1 

150 SV=INT(RND+0.5) 

164 V(1)=VV:V(2)=VV:PEN 

170 IF SV=08 THEN V(i)=- v{1): LOCATE 18,1:PRINT "<-" 
: CHRS(VV+48);"-":GOTO 190 

180 V(2)=-V(2): LOCATE 19,1:PRINT"-"; CHR$S(VV+48);" 
>" 

194 PEN 1:S(1)=1:S(2)=-1 

200 A=1.74532925EF-02 

218 J$(1)="GAUCHE": J$(2)="DROITE" 

2206 S$(1)="ANGLE":S$(2)="PUISSANCE" 

230 LOCATE 2,22 

248 FOR I=1 TO 36: PRINT”. “:: NEXT I 

250 PRINT:PRINT" @----" 

26@ FOR I=15 TO 98 STEP 15 


270 PRINT MIDS(STRS(I),2,2);"----"; 
280 NEXT I:LOCATE 39,23:PRINT ‘ ' 
D 


390 REM LE JEU 

400 IF J=1 THEN J=2 ELSE J=1 

410 GOSUR 1168 

428 R(1)=R(1)*3 

430 IX=COS(R(1}#*A) 

44Q IY=SIN(R(1)#*A) 

454 X=P(J):Y=12 

469 FOR I=1 TO R(2)+V(J) 

4794 FOR K=1 TO 30:NEXT:LOCATE INT(X),INT(Y):PRINT 
480 X=X+rIX*S(J) 

498 Y=Y-IY 

500 IF X<2 OR X>39 OR Y<2 OR Y>17 THEN 400 
510 Z=TEST(INT(X)}#16-8,406-INT(Y)}#16) 

52Q IF Z<>0 THEN 860 

530 LOCATE INT(X),INT(Y): PRINT CHR$(145) 
540 NEXT I 

550 FOR I=1 TO (R(2)-V(J)#S(J))72 
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560 


970 
580 
590 
600 
610 
620 
630 


640 
650 
660 
670 
680 
690 
700 
780 
790 
800 
810 
820 
830 
G(J) 
840 
850 
NE 
860 
870 
980 
998 
1800 
1018 
1020 
1030 
1040 
1080 
1098 
1100 
1110 
);" 
1120 
1130 
1140 
1150 
1168 
CATE 
1170 
OCAT 
1180 
1190 


FOR K=1 TO 36:NEXT:LOCATE INT(X),INT(Y):PRINT 


X=X+IX#S(J) 
IF X<2 OR X>39 OR Y<2 OR Y>17 THEN 400 
Z=TEST(INT(X)*16-8,406-INT(Y)*16) 
IF Z<>8 THEN 800 | 
LOCATE INT(X),INT(Y): PRINT CHR$(145) 
EXT I 
FOR K=1 TO 30:NEXT:LOCATE INT(X), INT(Y): PRINT 


X=X+IX#S(J) 

Y=Y+1IY 

IF X<2 OR X>39 OR Y<2 OR Y>17 THEN 409 
Z=TEST(INT(X)#16-8,406-INT(Y)*16) 

IF Z<>0 THEN 800 

LOCATE INT(X),INT(Y}:PRINT CHR$(145) 
GOTO 638 

REM 
REM FIN DU TIR 

IF TEST(INT(X)#16-8,408-INT(Y)*16)=3 THEN 400 
IF Z<>2 AND Z<>1 THEN 400 

LOCATE INT(X),INT(Y):PRINT * " 
G(J)=G(J)+1:LOCATE 1+(J-1)#30,28:PRINT sé cé 


IF G(J)<18 THEN 400 
LOCATE 6,24:PRINT " LE JOUEUR DE ";9J$(J):" GAG 


IF INKEYS<>CHRS(13) THEN 860 
RUN 
REM 
REM AFFICHE LES MAISONS 

FOR I=0 TO 15 

IF 1/4=INT(I/4) THEN LOCATE X,13+1/4 
PRINT CHR$(128+I); 

NEXT I 

RETURN 

REM 
REM SAISIES DES DONNEES 
FOR I=1 TO 2 | 
LOCATE 6,24:PRINT S$(I);:" DU JOUEUR DE ";J$(J 


Q=20 
PAPER 1:PEN @:LOCATE Q,22:PRINT "." 
AS=INKEYS:IF A$="" THEN 1140 

IF AS=CHRS(13) THEN 1190 

IF AS=CHR$(242) AND Q>2 THEN PAPER @:PEN 1:L0 


0 nm nm cn mn = uv et = = ee 0 = en où en en vw = de en = = 


ne en ne ee un © O0 ne ne ue = en 0 © ee um = mue on eu uw 7 ee 


Q,22:PRINT “.":Q=Q-1:GOTO 1130 

IF AS$=CHRS(243) AND Q<37 THEN PAPER @:PEN 1:L 
E Q,22:PRINT ".":Q=Q+1 

GOTO 1130 

R(I)=Q 


Super jeux Amstrad _ | 107 


PAPER 6:PEN 1:LOCATE Q,22:PRINT "." 


NEXT I 


R(2)=R(2)/2 
TURN 


F 
REM GRAPHIQUES 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 


LISTE 


DES VARIABLES : 


128,0,7,7,7,7,7,7,7 

129 1,2,5,10,21,42,85,170 
130,0,128, 64,160,86,168,84,170 
131,0,0,6,8,6,0,0,0 
132,7,6,5,18,21,42,85,255 
133,85,175,85,173,87,173,85,255 
134,85, 234,85, 106, 213,106,85,255 
135,0,128,64,160,86,168, 84,254 
136,128,128,159, 146, 146,146, 159, 146 
137,0,0,207,73,73,73,207,73 
138,0,0,227,34,34, 34,226, 34 
139,2,2,242,18,18.,18,18,18 

140, 146,146,159,128,128,128,128,255 
141,73,73,207,0,0,0,0,255 
142,34,34,226,2,2,2,2,255 
143,18,50,50,18,18,18,18,254 

144: 255,146,255, 36,255, 73,255, 36 
145, 60,126,255,255, 255. 255,126, 60 


dernière touche enfoncée 
conversion degrés-radians 
points de chaque joueur 

indice de boucle FOR/NEXT 
incréments horizontal et vertical 
numéro du joueur 

nom des joueurs 

position des maisons 

pointeur sur l’échelle 

réponse angle et puissance 
type de donnée à saisir 

nom des données à saisir 

sens du vent 

V() vitesse et sens du vent pour chaque joueur 
VV vitesse du vent 

XetY coordonnées de la pierre 

Z code du caractère sous la pierre 


J 
J$() 
P() 
Q 
A() 
S() 
S$() 
SV 
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PROGRAMME | Lignes 30 à 280 : initialisation 
Après la définition des caractères graphiques par le sous- 
programme en 1300, on dessine sur l'écran les deux 
maisons en utilisant le Sous-programme en 1000 qui les 
affiche à la position X. 


Dans les lignes 140 à 220, on définit les principales 
variables utilisées dans le programme (voir liste des 
variables). 


Lignes 400 à 700 : le jeu 


Les incréments verticaux et horizontaux du déplacement de 
la pierre sont calculés à partir de la variable A qui fait la 
conversion degrés-radians. 


Le projectile est déplacé en trois temps : la montée (lignes 
460 à 540), l'horizontale (lignes 550 à 620) et la descente 
(lignes 630 à 700). Celles-ci utilisent tous les paramètres 
déjà calculés : incréments, sens et vitesse du vent. 


On teste à chaque déplacement qu'aucun obstacle ne se 
trouve sur son chemin. 


Lignes 800 à 870 : fin du tir 


Si l’une des parties encore visible sur l'écran est touchée, 
on incrémente le compteur de points du joueur. Tant que 
celui-ci est inférieur à 10, on continue le jeu. 


Lignes 1100 à 1230 : saisie des données 


Ce sous-programme saisit l’angle et la puissance donnés 
au projectile par chaque joueur. Suivant la valeur du 
caractère saisi dans A$, on déplace le point vers la droite 
ou vers la gauche sur l'échelle du bas de l'écran. Quand il 
S’agit de ENTER (code 13), on garde la dernière valeur de 
la variable Q. 
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Vous connaissez sûrement le jeu « Puissance 4 » 


PUISSANCE 4 | qu'Amstrad vous propose de jouer contre lui. 
Iltrace d'abord sur l’écran une grille de 7 cases sur 6 et 
attend que vous tapiez le numéro de la colonne où tombera 
votre pion (un chiffre de 1 à 7). Puis c’est à son tour de 
jouer, et ainsi de suite. Les coups des deux joueurs 
S'affichent à droite de l'écran. 


Le joueur qui réussit à aligner quatre pions verticalement, 
horizontalement, ou en diagonale, a gagné la partie. 


Il suffit de taper sur n'importe quelle touche pour obtenir 
une nouvelle grille. 


4 5 
4 à 
5  £ 
8 3 
3 à 
ë 3 
Ë à 
3 4 
3 


J'AI GAGNE 
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19 REM PUISSANCE 4 

20 REM -------------2 2 - 

30 SYMBOL. AFTER 128: DEFINT A-Z:GOSUB 1108 

40 MODE 1:INK 6,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
Ô:PEN 1:BORDER 1 

50 FOR I=208 TO 424 STEP 32 

60 PLOT I,344:DRAW 424,344:DRAW 424,152:DRAW I,152 
: DRAW I, 344 

70 IF 1<392 THEN PLOT 2006,544-I:DRAW 424,544-I:DRA 

W 424,248:DRAW 280,248: DRAW 268,544-] 

80 NEXT I 

96 PEN 3: Fe 14,17:PRINT "123456 7" 

106 DIM P(8,7) 

119 E=1 

128 X(1)=0:Y(1)=-1: X(2)=-1:Y(2 
130 as 1:Y(3)=-1:X(4)=-1:Y(4 
189 REM -------------- 

190 REM LE JEU 

280 LOCATE 1,21:PRINT CHR$S(18); 

210 IF E=2 THEN 400 

220 PEN 1:LOCATE 13,21:PRINT"No DE COLONNE ?"; 

230 AS=INKEYS:IF A$="" THEN 236 ELSE A=VAL(AS) 

240 IF A<1 OR A>7 OR P(A,1)<>9 THEN 238 

250 GOSUB 780:J=A:C(J)= L': Z=E: GOSUB 688:-P(A,I)=E 
260 PEN 2 

276 FOR J=0 TO I 

280 LOCATE 12+Ax2,3+(J-1})#2: PRINT " " 

298 LOCATE 12+Aw2. 3+J#2: PRINT CHRS$S(127+E) 

306 FOR K=1 TO 300: NEXT K 

310 NEXT J:IF N>2 THEN 900 

320 PEN 3:LOCATE 27+E#4,1+INT(T!)}:PRINT A:T!=T!+0. 
5 

330 IF T!=21 THEN 1900 

340 E=E+1:IF E=3 THEN E=1 

350 GOTO 208 

384 REM ------------------- 

390 REM COUP DE L'ORDINATEUR 

406 FOR J=1 TO 7 

410 A=J: GOSUB 780:C(J)=I:IF I=0 THEN C(J)=-2:G(9J)= 

-1:GOT0 440 

420 Z=1:GOSUB RE  RUEE 

430 7=2:GOSUB 6808:H(J)=N:L(J) 

TO 258 

440 NEXT J:F-=0 

450 A=1:FOR J=1 TO 7:1F F=0 AND C(J)<@ THEN 490 

460 IF F=1 AND C(J)<-1 THEN 490 

470 IF G(J)>G(A) THEN A=J:GOTO 490 

480 IF G(J)=G(A) AND L(J)>=L(A) AND Q(J)>=Q(A) THE 

N Az) 

498 NEXT J 

508 GOSUB 788:P(A,I)=E:J=A:1F C(J)-1=0 THEN P(A,I) 
=0:GOT0 538 


sr ur 


0 
O:IF N>2 THEN A=J:6G0 
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519 C(J)=C(J)-1:72=1: GOSURB 608:P(A,I)=0:C(9)=C(J)+1 
526 IF N>2 THEN C(J)=-1:G(J)=-1:GOT0 458 
530 IF F=0 AND C(J)<0 THEN F=1:GOTO 450 
549 GOFO 250 

589 REM ------———mmmm mm mm mm 
590 REM NB DE BLOCAGES 

609 N=8:0=0 

610 FOR K=1 TO 4 

620 M=0:V=1 

630 X=J:Y=C(J) 

640 X=X+VaX(K):Y=Y+V#Y(K) 

656 IF X<1i OR X>7 OR Y<1 OR Y>6 THEN 688 
668 IF P(X,Y)<>Z THEN 680 

670 M=M+1:0=0+1:GOT0 648 

680 IF V=1 THEN V=-1:GOT0 630 

690 IF M>N THEN N=M 

700 IF M>=3 THEN W=K 

719 NEXT K 

720 RETURN 

780 REM ----------— 
790 REM POSITION LIGNE 

809 FOR I=1 TO 6 

810 IF P(A,I)<>Q THEN 830 

820 NEXT I 

830 I=I-1 

840 RETURN 

880 REM -------------mmmmmmm mm 
894 REM FIN DE PARTIE 

90Q IF E=1 THEN LOCATE 13,21:PRINT "VOUS AVEZ GAGN 
E":GOTO 920 

918 LOCATE 15,21:PRINT "J'AI GAGNE" 

928 V=1 

930 X=A:Y=I 

948 LOCATE 12+X*2,3+Y*x2: PRINT CHRS(W+129) 
958 X=X+VaX(W):Y=Y+VEY(W) 

960 IF P(X,Y)=E THEN 940 

970 IF V=1 THEN V=-1:GO0T0 930 

980 IF INKEYS="" THEN 980 

998 RUN | 

1880 LOCATE 11,21:PRINT "PARTIE NULLE" 
1010 GOTO 986 

1089 REM ------------- mm 
1090 REM GRAPHIQUES 

1100 SYMBOL 128,60,66,129,129,129,129,66,68 
1110 SYMBOL 129,60,126,255,255,255,255,126,60 
1120 SYMBOL 130,16,16,16,16,16,16,16,16 
1130 SYMBOL 131,128,64,32,16,8,4,2,1 
1140 SYMBOL 132,1,2,4,8,16,32,64,128 
1150 SYMBOL 133,0,0,0,0,255,0,0,8 

1168 RETURN 
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PROGRAMME 


Lignes 30 à 130 : initialisation 


Après la définition des caractères graphiques (sous- 
programme en 1100), les lignes 50 à 90 dessinent le 
damier. 


On place dans les tableaux X et YŸ le nombre de cases de 
déplacement pour les recherches de l'ordinateur. On 
obtient les huit directions en multipliant par moins un les 
quatre valeurs des tableaux X et Y. 


Lignes 200 à 350 : le jeu 

La variable E détermine le tour du joueur (E=1) ou le tour 
de l'ordinateur (E=2). 

Les lignes 220 à 240 saisissent au clavier le choix du 
joueur et vérifient sa réponse. 


Si celle-ci est correcte, on va au sous-programme en 780 
pour connaître la position du pion, et au sous-programme 
en 600 pour savoir si quatre pions ont été alignés. 


O1 la variable N est supérieure à 2 (au moins trois pions 
plus celui que l’on vient de jouer), on va en ligne 900 pour 
la fin de partie. 


Les lignes 260 à 320 affichent le pion dans la grille ainsi 
que le coup qui vient d'être joué. 


On modifie alors la valeur de la variable E avant de 
retourner au joueur suivant en ligne 200. 


Lignes 400 à 540 : coup de l’ordinateur 


L'ordinateur teste toutes les colonnes pour trouver la plus 
intéressante (soit pour bloquer l'adversaire, soit pour 
gagner). 

Il utilise pour cela le Sous-programme en 780 pour 
connaître l'emplacement d'un pion sur une colonne, ainsi 
que le sous-programme en 600 pour compter le nombre 
de pions alignés par lui ou par le joueur. 


Lignes 600 à 720 : nombre de blocages 


Ce sous-programme place dans la variable N le nombre 
maximum de pions alignés si l’on jouait dans la colonne J 
et pour les pions de type Z (Z=1 pion du joueur, Z=2 
pions de l'ordinateur). || effectue la même chose pour la 
variable Ô mais pour tous les pions (alignés ou non). Cette 
variable 0 est utilisée comme coefficient si aucune colonne 
n'est intéressante. 


La variable V qui passe de 1 à —1 permet d'étudier les huit 
directions avec les tableaux X et Y. 
Lignes 780 à 840 : position ligne 


Ce programme place dans la variable 1 le premier numéro 
de ligne libre de la colonne désignée par la variable A. 
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LISTE A valeur numérique de A$ 
colonne choisie par le joueur 
DES VARIABLES : | C() conserve les numéros de ligne donnés par le 
Sous-programme en 780 
E numéro du joueur (E=1 pour le joueur, E=2 
pour Amstrad) 
F drapeau 
conserve les valeurs de la variable N pour 


conserve les valeurs de la variable N pour 


.— 


indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

conserve les valeurs de la variable O pour 

1=2 

nombre de pions alignés 

nombre maximum de pions alignés autour de 

celui que l'on veut jouer 

nombre de pions autour de celui que l'on veut 

jouer 

emplacement de tous les pions sur la grille 

conserve les valeurs de la variable O pour 

2-1 

nombre de demi-coups déjà joués 

permet d'obtenir les huit directions avec les 

tableaux X et Ÿ 

direction dans laquelle les pions gagnants 

sont alignés 

coordonnées des pions gagnants 

X()etY() nombre de cases de déplacement pour les 
quatre directions 

Z type de pion à analyser 


Z Sx— 
_—” 


EE “= 22 © = 


*< 
1 
—< 
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Votre Amstrad vous demande tout de suite de donner le 

BLOC AGES niveau de difficulté du jeu (entre 1 et 3). Après votre choix, 
il dessine à l'écran une grille de huit cases sur sept, puis le 
pion rouge du joueur et le pion orangé d'Amstrad. 


Le jeu peut alors commencer. Un coup se déroule en deux 
phases : 


— Vous déplacez d'une case et d'une seule votre pion à 
l'aide des quatre flèches de direction. 


— puis Vous manœuvrez avec ces mêmes flèches le 
curseur clignotant, passant s’il le faut, sur des cases déjà 
occupées. Vous validez à ce moment la case choisie pour 
bloquer votre adversaire en tapant sur ENTER. Quand vous 
jouez vous ne pouvez bloquer l'ordinateur que d’une case. 

L. Par contre, quand ce sera le tour d’Amstrad, il vous 

” bloquera de une à trois cases à la fois suivant le niveau du 
jeu que vous avez choisi en début de partie. 


Ne perdez pas courage, il y a une stratégie pour bloquer 
votre adversaire même au niveau trois ! 


ELOCAGE NIVEAU: 1 


DEPFLACEZ UOTRE PION 
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10 REM BLOCAGE 

09 REM -------—mmm mm 

30 MODE 1:INK 06,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
0:PEN 1:BORDER 1 

48 RANDOMIZE TIME 

58 PRINT TAB(15); “BLOCAGE" 

69 PRINT:PRINT:PRINT:PRINIT 

70 PRINT" CHOISISSEZ VOTRE NIVEAU :":PRINT:PRINT 
88 PRINT:PRINT" 1- FACILE" 

98 PRINT:PRINT" 2- PAS EVIDENT" 


1008 
119 
120 
180 
190 
200 
210 
220 


PRINT:PRINT* 3- VRAIMENT TRES DIFFICILE" 

LOCATE 15,21:PRINT"?"; 

NIV=VAL (IAKEYS): IF NIV<1 OR NIV>3 THEN 120 
ER 

REM DESSIN DU JEU 

CLS:PRINT TAB(11); "BLOCAGE  NIVEAU:";NIV 

FOR X=1 TO 8:FOR Y=1 TO 7:PRINT CHRS(7); 

PLOT X#32+144,480-Y*32:DRAWR 32,0:DRAWR 0,-32: 


DRAWR -32,8:DRAWR 9, 32 


230 
240 
250 
269 
380 
390 
400 
410 
ATE 


NEXT Ÿ,xX 

XJ=3:YJ=4:X0=-6: YO=4 

X=XJ:Y=YJ:C=2: GOSUB 1010 

X=X0:Y=Y0:C=3: GOSUB 1018 

RENE - e — eRR nee 

REM COUP DU JOUEUR 

REM DEPLACEMENT 

XX=XJ:YY=YJ: GOSUB 1060:IF T=0 THEN PAPER 0:LOC 
1,23:PRINT CHR$(18); TAB(12); "VOUS AVEZ PERDU ! 


": GOSUB 1040:WHILE INKEY$="":WEND: RUN 


420 


PAPER 8:LOCATE 1,23:PRINT CHRS(18);TAB(11);"DE 


PLACEZ VOTRE PION" 


430 


D$=INKEYS:IF D$="" THEN 430 ELSE D=ASC(DS):AX= 


XJ: AY=YJ: X=XJ: Y=YJ 


440 
458 
460 
470 
480 
490 
500 
510 


IF D=242 THEN IF X>1 THEN X=X-1 

IF D=243 THEN IF X<8 THEN X=X+1 

IF D0=240 THEN IF Y>1 THEN Y=Y-1 

IF D=241 THEN IF Y</7 THEN Y=Y+i 

GOSUB 1058:IF P<>0 THEN GOSUB 1030:G0T0 438 
C=2:GOSUB 1010: GOSUB 1920: XJ=X:YIJ=Y 

REM BLOCAGE D'UNE CASE 

PAPER O:LOCATE 1,23:PRINT CHR$S(18); TAB(12); "BL 


OQUEZ UNE CASE" 


920 
930 
540 


X=4:Y=4 
GOSUB 10850: CC=P 
C=1:GOSUB 1818:DS$=INKEYS:C=0:GOSUB 1010:IF DS$-= 


"" THEN 540 


590 
560 
570 
580 
590 
600 
610 


C=CC: GOSUB 1010:D=ASC(D$S) 

IF D=242 THEN IF X>1 THEN X=X-1 
IF D=243 THEN IF X<8 THEN X=X+1 
IF D=240 THEN IF Y>1 THEN Y=Y-1 
IF D=241 THEN IF Y</7 THEN Y=Y+1 
IF D<>13 THEN 538 

IF CC<>0 THEN GOSUB 1030: GOT0 540 
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620 GOSUB 1009 

689 REM ------------------ 

690 REM COUP DE L'ORDINATEUR 

700 REM DEPLACEMENT 

710 PAPER @:LOCATE 1,23:PRINT CHR$(18) 

720 XX=X0: YY=YO: GOSUB 1060:IF T=8 THEN PAPER @:LOC 

ATE 1,23:PRINT CHR$(18);TAB(14); "J'AI PERDU ! ":GOS 

UB 1040:WHILE INKEYS="": WEND : RUN 

730 AX=X0: AY=YO 

740 IF XO>1 THEN X=X0-1:Y=YO: GOSUB 1050:IF P=0 THE 
N IF INT(RND*9)=4 THEN 798 

750 IF XO<8 THEN X=X0+1:Y=YO0: GOSUB 1050:IF P=0 THE 
N IF INT(RND*8)=4 THEN 790 

768 IF YO>1 THEN X=X0:Y=YO-1:GOSUB 1050:IF P-=0 THE 
N IF INT(RND*x7)=4 THEN 790 

770 IF YO<7 THEN X=X0:Y=YO+1: GOSUB 1058:1F P=0 THE 
N IF INT(RND*6)=4 THEN 790 

784 GOTO 748 

790 C=3:GOSUB 181@:PRINT CHRS(7);:GOSUB 1020: X0=X: 

YO=Y 

800 REM BLOCAGE DES CASES 

810 FOR Z=1 TO NIV 

820 FOR X=XJ-1 TO XJ+1:FOR Y=YJ-1 TO YJ+1 

830 IF X<1 OR X>8 OR Y<1i OR Y>7 THEN 850 

840 GOSUB 1050:1F P=0 THEN IF INT(RND*7)=4 THEN 86 
0 

850 NEXT Y,X:XX=XJ: YY=YJ: GOSUB 1060:1F T>0 THEN 82 
860 PRINT CHRS$(7);:GOSUB 1000 

870 NEXT Z 

888 GOTO 418 

D RE 

998 REM ROUTINES D'AFFICHAGE 

1008 PAPER 1:LOCATE X#2+10,Y#2+1:PRINT"  ":LOCATE 

X#2+10,Y#2+2: PRINT"  ": RETURN 

1018 PAPER C:LOCATE X#2+10,Y#2+1: PRINT"  “:LOCATE 

X#2+10,Y#2+2: PRINT" ":PLOT X*32+144,400-Yx32: DRAW 
R 32,0:DRAUWR 06,-32:DRAWR -32,0:DRAWR 8,32: RETURN 
1020 PAPER 8:LOCATE AX#2+106, AY#2+1:PRINT"  ":LOCAT 
E AX#2+10, AY#2+2: PRINT" ":PLOT AX*32+144,400-AY#3 
2: DRAWR 32,0:DRAWR 6,-32:DRAUR -32,8:DRAWR 0,32:RE 
URN 

1030 FOR I=1 TO 5:PRINT CHRS(7);:FOR J=1 TO 30:NEX 
T:NEXT: RETURN 

1040 FOR I=16 TO @ STEP-1:PRINT CHRS(7);:FOR J=1 T 
O Iw1+10:NEXT:NEXT: RETURN 

1050 P=TEST(X*32+146, 398-Y»32 ): RETURN 

1060 T=0:IF XX>1 THEN X=XX-1:YŸ=YY: GOSUB 1050: T=T-( 
P=0) 

1070 IF XX<8 THEN X=XX+1:Y=YY: GOSUB 1050:T=T-(P=0) 
1080 IF YY>1 THEN X=XX:Y=YY-1: GOSUB 1050:T=T-(P=0) 
1090 IF YY<7 THEN X=XX:Y=YY+1: GOSUB 1050:T=T-(P=0) 
1108 RETURN 


Super jeux Amstrad | 117 


PROGRAMME 


Lignes 30 à 120 : initialisation 


Après l'initialisation des nombres aléatoires (ligne 40), le 
programme saisit le niveau du jeu. 


Lignes 200 à 260 : dessin du jeu 
Les lignes 210 à 230 tracent le damier. 


C'est la ligne 240 qui donne la position initiale du joueur et 
de l'ordinateur, les lignes 250 et 260 affichant les pions 
Sur la grille. 


Lignes 410 à 620 : coup du joueur 


La première ligne vérifie si la partie est terminée. Si c’est le 
cas, on affiche le message « Perdu » et l’on recommence 
une partie dès qu'une touche est enfoncée. 


Les lignes 430 à 490 déplacent le pion du joueur en 
fonction de la dernière touche appuyée (conservée dans 
D$). Le sous-programme en 1050 vérifie que la case 
choisie est libre. 


Les lignes 510 à 620 bloquent la case choisie par le joueur. 


Lignes 710 à 880 : coup de l'ordinateur 


Comme pour le tour du joueur, la première ligne vérifie si 
la partie est terminée. 


Les lignes 740 à 780 recherchent une case où le pion de 
l'ordinateur peut se déplacer. Pour que le jeu soit différent 
à chaque partie, on utilise des nombres aléatoires pour la 
sélection. 


Les lignes 810 à 870 bloquent autant de cases que le 
niveau est élevé. Pour que la partie ne soit pas écourtée 
(surtout au niveau 3 !), on utilise aussi des nombres 
aléatoires pour le choix des cases à bloquer. 


Lignes 1000 à 1100 : routines d'affichage 


Ligne 1000 : efface le contenu de la case X, Y 
Ligne 1010 : écrit un pion de couleur C dans la case X, Y 
Ligne 1020 : efface le contenu de la case AX, AY 
Ligne 1030 : émet un beep continu 
Ligne 1040 : émet un beep discontinu 
Ligne 1050 : place dans P la couleur de la case X, Y 
Lignes 1060 
à 1100 : placent dans T le nombre de déplacements 
possibles à partir de la case X, Y 
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LISTE AX et AY ancienne position du joueur ou de l'ordinateur 
couleur d’une case 


DES VARIABLES : | CC couleur initiale de la case X, Y 
D valeur ASCII de D$ 
D$ dernière touche appuyée 
| indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
NIV niveau du jeu 
P couleur de la case X, Y 
T nombre de déplacements à partir de X, Y 


XJ et YJ coordonnées du joueur 

XOetYO coordonnées de l'ordinateur 

XX et YY garde la position du joueur ou de l'ordinateur 
pour la recherche des cases libres 

Z indice de boucle FOR/NEXT 
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Voilà un excellent jeu de réflexe explosif | 
BOMBE A | Vous avez exactement 1000 fractions de seconde pour 


relier entre eux dans un ordre croissant les 9 chiffres qui 
RETARDEMENT apparaisent dispersés sur l'écran. Pour cela, vous 


disposez des 4 flèches de déplacement. 


Mais attention, un seul croisement est autorisé. Au 
deuxième, la bombe explosera. 


C'est aussi ce qui risque d'arriver si vous ne respectez pas 
le temps imparti ou l’ordre des chiffres | 


é = $S8i CROISEMENT = 6 
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10 REM BOMBE À RETARDEMENT 

29 REM ---------- 

30 SYMBOL AFTER 128:GOSUB 1000 

40 RANDOMIZE TIME 

50 MODE 1:INK @,1:INK 1,24:INK 2,6:INK 3,15:PAPER 

0:PEN 1:BORDER 1 

60 PAPER 1 

70 FOR I=1 TO 40 

80 LOCATE I,1:PRINT “ ":LOCATE I,23:PRINT " " 

90 IF I<24 THEN LOCATE 1,I:PRINT " ":LOCATE 40,I:P 
RINT " ” 

108 NEXT I 

118 PAPER 8:LOCATE 20,12:PRINT CHRS(129) 

120 PEN 2 

130 FOR I=1 TO 9 

148 X(I)=INT(RND*36)+3:Y(I)=INT(RND*19)+3 

150 IF TEST(X(I)*16-8,400-Y(I)*16)<>0 THEN 140 

168 LOCATE X(I),Y(I):PRINT CHRS(I+48) 

170 NEXT I 

180 T=1080:P=1:C=0 

190 PEN 3:LOCATE 6,24: PRINT CHRS(133)CHRS(134): LOC 
ATE 6,25:PRINT CHR$(135)CHR$(136):" =".T; 
209 LOCATE 21,25:PRINT "CROISEMENT = 0". 

210 X=20:Y=12:LOCATE X,Y:PEN 1 


3 


280 REM --------------- 
290 REM LE JEU 
300 T=T-1:LOCATE 10,25:PRINT 1 "+: LOCATE X,Y 


310 IF T=0 THEN 580 

320 AS=INKEYS:IF A$="" THEN 300 

330 IF AS=CHR$S(242) AND X>2 THEN V=-1:W=0 

340 IF AS=CHRS(243) AND X<39 THEN V=1:W=0 

350 IF AS$S=CHRS(249) AND Y>2 THEN V-0:W=-1 

360 IF AS=CHRS(241) AND Y<22 THEN V=0:W=1 

370 IF V=0 AND W=6 THEN 300 

380 IF TEST((X+V)#16-8,408-(Y+W)*16)=1 THEN C=C+1: 
LOCATE 34,25:PRINT CHR$(48+C):IF C>1 THEN 500 ELSE 
428 

390 ASTEST((X+V)#16- -8,402-(Y+W)*16) 

400 IF A=2 AND X(P)=X+V AND Y(P)=Y+W THEN P=P+1:1IF 
P>9 THEN 700 ELSE 420 

418 IF A<>0 THEN 500 

420 X=X+V:Y=Y+W:LOCATE X,Y:PRINT CHRS(130+V+W»2) 

430 V=0:W=0 

449 GOTO 308 

RE 

498 REM PERDU 

580 CLS:INK 1,0 

510 FOR J=1 TO 2 

520 FOR I=300 TO 124 STEP -28 

530 PLOT T,500-T,J:DRAW 620-I,500-I,J:DRAW 620-I.1I 
-128,J:DRAW L,1-120,J-DRAW I, 5048-71 
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54@ BORDER I MOD 27: SOUND 1,1, 2 

559 NEXT I 

560 INK 2,1 

570 NEXT J 

588 RUN 

689 REM ------------"  _ .___ 

698 REM GAGNE 

700 FOR I=7@8 TO 14 STEP-3: SOUNN 1,1,2:NEXT 
718 RUN 

980 REM ----------- 

999 REM GRAPHIQUES 

1009 SYMBOL 128,24,60,126,255,24,24,24, 24 
1018 SYMBOL 129,16,48,112,255.255,112,48.16 
1828 SYMBOL 131,8,12,14,255,255,14,12 8 

1030 SYMBOL 132,24,24,24,24 255 126. 60,24 
1848 SYMBOL 133,0,4,0.8,0,1 1,7 

1054 SYMBOL 134,21,2,57,98,197,128, 128,224 
1068 SYMBOL 135,63,127,255:255 255 255 127,63 
1070 SYMBOL 136,252,254,255,255,255,255 254,259 
1984 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 210 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en 1000, on affiche le jeu en plaçant à des 
positions aléatoires les neuf chiffres à relier. 


Lignes 300 à 440 : le jeu 


La ligne 300 décrémente et affiche le temps qu'il reste 
avant l'explosion de la bombe. Si cette valeur est à zéro, 
on va directement en ligne 500 pour la fin du jeu. 


Suivant la touche qui est appuyée, on modifie les 
incréments V et W. 


La ligne 380 teste le caractère que l’on vient de rencontrer. 
S'il s’agit d'une flèche, on incrémente le nombre de 
croisements C. Des que celui-ci est supérieur à un, le 
programme exécute la phase explosion (lignes 500 à 580). 


Dans le cas d’un chiffre, on incrémente le compteur P si 
l'ordre croissant a été respecté. Sinon on va aussi en ligne 
500 pour la fin du jeu. 


Avant de revenir en ligne 300, on affiche une flèche dans la 
direction du déplacement en utilisant les incréments V et 


$ dernière touche enfoncée 
caractère Sous le curseur 
nombre de croisements 
indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
prochain chiffre à trouver 
temps restant 

VetW incréments en X et Ÿ 

X et Y coordonnées du joueur 

X()etY() coordonnées des chiffres 


10-02» 
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Ne paniquez pas si vous voulez sauver cet imprudent 
PIRAN HAS explorateur tombé dans l'Amazone au milieu des piranhas. 


Sa seule chance est que ces féroces poissons 
s’entredévorent lorsqu'ils se retrouvent côte à côte. 


Tout en déplaçant l'explorateur avec les quatre flèches, 
Vous imaginerez sûrement une tactique pour forcer les 
piranhas à se rencontrer jusqu'au dernier. Vous devrez être 
prêt pour une autre traversée de l'Amazone, dès que vous 
aurez appuyé sur ENTER. 
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19 REM PIRANHAS 
REM 


30 SYMBOL AFTER 128:GOSUB 2000 

40 DIM X(30),Y(30) 

50 V(2)=-1:V(3)=1:W(1)=1:W(0)=-1 

60 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
1:PEN 2:BORDER 1 

70 FOR I=1 TO 40 

80 LOCATE I,1:PRINT “ ":LOCATE I,25:PRINT " ”, 
90 IF I<25 THEN LOCATE 1,I:PRINT " ":LOCATE 40,I:P 
RINT fi ti 

108 NEXT I:PAPER @ 

118 RANDOMIZE TIME 

120 P=INT(RND*11)+20 

130 FOR I=1 TO P 

148 X(I)=INT(RND*38)+2: Y(I)=INT(RND+22 +2 

150 LOCATE X(I),Y(I):PRINT CHR$(128) 

168 NEXT I 

170 X=INT(RND*38)+2: Y=INT (RND=22 )+2 

180 PEN 3:LOCATE X,Y:PRINT CHRS$(132) 

198 IF INKEYS="" THEN 190 

286 REM -------.2- 2" . 

290 REM DEPLACEMENT PIRANHAS 

360 FOR I=1 TO P 

310 IF X(I)=@ THEN 400 

320 LOCATE X(I),Y(I):PRINT " " 

330 FOR J=0 TO 3 

340 A=TEST((X(I)+V(J))*16-8,408-(Y(I)+W(J))*16) 
350 IF A=3 THEN 800 

360 IF A=2 THEN 380 

370 NEXT J:GOTO 418 

380 X(1)=0:G=-G+1: PRINT CHRS(7); 

399 IF G=P-1 THEN 900 

488 GOTO 608 

410 IF Y(I)>Y THEN K=0:GOTO 450 

420 IF Y(I)<Y THEN K=1:GO0T0 450 

430 IF X-1>=X(I) THEN K=3:GOTO 450 

448 K=2 

458 X(I)=X(I)+V(K):Y(I)}=Y(I)+W(K) 

586 REM --------_- 

590 RFM DEPLACEMENT JOUEUR 

609 CS=INKEYS 

619 IF C$="" THEN 700 

620 FOR J=0 TO 3 

630 IF C$=CHRS(240+J) THEN 650 

648 NEXT J:GOTO 706 

650 A=TEST((X+V(J))*16-8,408-(Y+W(J))*#16):IF A=1 T 
HEN ‘706 

660 IF A=2 THEN 810 

679 LOCATE X,Y:PRINT " " 

680 X=X+V(J):Y=Y+W(J) 
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690 PEN 3:LOCATE X,Y:PRINT CHR$(132):D=D+1 

700 IF X(I)>@ THEN PEN 2:LOCATE X(1),Y(I):PRINT CH 
R$(128+K) 

718 NEXT I 

7206 GOTO 300 

780 REM ------------- 

799 REM PERDU 

800 LOCATE X+V(J),Y+W(J):PRINT " ":PEN 1:LOCATE X, 
Y:PRINT CHR$(131):GOTO 820 

819 LOCATE X,Y:PRINT " ":PEN 1:LOCATE X+V(J),Y+W(J 
):PRINT CHR$(131) 

820 FOR I=0 TO 26:PRINT CHRS(7);:BORDER I:FOR K=1 
TO 40:NEXT:NEXT I 

830 IF INKEYS<>CHRS(13) THEN 830 

849 RUN 

BBQ REM == 2 

890 REM GAGNE 

999 PEN 1:LOCATE X,Y:PRINT CHR$(132) 

918 FOR I=588 TO 58 STEP -5: SOUND 1,1,2:NEXT 

928 LOCATE 13,25:PRINT D;"DEPLACEMENTS"; 

930 IF INKEYS<>CHRS(13) THEN 920 

948 RUN 

RE 

1998 REM GRAPHIQUES 

2008 SYMBOL 130,0,57,93,255,125,57,0,0 

20618 SYMBOL 131,0,156,186,255,190,156,0,0 

2020 SYMBOL 129,124,16,56,124,124,92,56,16 

2030 SYMBOL 128,8,28,58,62,62,28,8,62 

2648 SYMBOL 132,157,157,153,255,126,60,60,255 
20504 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 190 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en 2000, on place dans les tableaux V() et W() 
les directions de déplacement des piranhas. 


Le nombre de piranhas est déterminé par la variable P 
(nombre aléatoire). On remplit les tableaux X() et Y() avec 
les coordonnées des piranhas, X et YŸ donnant celles de 
l'explorateur. 


Lignes 300 à 450 : le jeu 


Chaque piranha est déplacé sur l'écran dans le sens qui le 
rapproche le plus de l'explorateur sauf s’il trouve un 
congénère sur une case adjacente. Dans ce cas, il 

s empresse de l'avaler (ligne 360) 


Lignes 600 à 720 : déplacement de l’explorateur 


On déplace l'explorateur suivant la touche appuyée (saisie 
par INKEYS). 


Lignes 800 à 940 : fin de partie 


Suivant l'issue de la partie, Amstrad affiche un piranha 
(perdu!) ou un explorateur (gagné!). 


A couleur sous l'explorateur avant déplacement 

C$ dernière touche enfoncée 

G nombre de piranhas éliminés 

| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

K sens du déplacement des piranhas 

P nombre de piranhas 

VO et W() nombre de caractères de déplacement en X et 
en Ÿ pour les 4 directions 

X et Y coordonnées de l'explorateur 

X()etY() coordonnées des piranhas 


Super jeux Amstrad | 127 





L'ordinateur choisit un mot parmi les 300 que contient le 


ANAGRAMMES | programme. 


Puis, après un tour de passe-passe, il affiche un superbe 
anagramme. 


À vous de trouver le mot d'origine. Si vous séchez 
lamentablement, taper uniquement sur ENTER pour obtenir 
la solution. En appuyant à nouveau sur ENTER, le 
programme vous propose un autre mot. 


ANAGRAMMES 


JE FROPFOSE : CELREC 


QUEL EST CE MOT ©? 


NONT C'EST CERCLE 
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NEXT 
180 REM 


REM ANAGRAMMES 
REM 


MODE 1:INK @,13:INK 1,0:PAPER 0@:PEN 1:BORDER 13 
DEFINT A-Z 

DIM M$(300) 

RANDOMIZE TIME 

FOR I= 
READ MS(I) 


1 TO 380 


= D OU ue D un né ne (EU D D Mn M On due AR D ŒR ue AD D AR en Me OÙ A D ù em 


190 REM LE JEU 

200 M=INT(RND*300)+1 

210 ZS$=MS(M) 

220 FOR I=1 TO 10 

230 A=INT(RND*6)+1:B=INT(RND*6)+1 
249 XS=MIDS(ZS,A,1) 

250 MIDS(Z$,A)=MIDS(ZS,B,1) 

260 MIDS(Z$,B)=X$ 


276 NEXT 
288 CLS:LOCATE 15,1:PRINT 
298 LOCATE 1,6:PRINT 


*ANAGRAMMES 
"JE PROPOSE : ";7Z$ 


308 LOCATE 1, 10: INPUT"'QUEL EST CE MOT " s Z$ 
310 PRINT: PRINT 


3206 IF Z$=M$S(M) THEN PRINT"OUT! 


INT'NON! 


C'EST ",Z$ ELSE PR 
C'EST ";MS(M) 


330 IF INKEY$S<>CHRS(13) THEN 338 


348 GOTO 
480 REM 


208 


— PROD OR D le Un D A0 un 4 UP CR AUD un ue AU D CE un M AN US Mb ur ue ue RO AD vs 


498 REM LES MOTS 


500 DATA 
519 DATA 
520 DATA 
530 DATA 
549 DATA 
559 DATA 
569 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
619 DATA 
626 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
676 DATA 
680 DATA 
698 DATA 
700 DATA 
710 DATA 


ABAQUE, ABBAYE, ABIMER, ABJECT, ABOYER, ABSENT 
ABSIDE, ABUSER, ACABIT, ACACIA, ACAJOU, ACCENT 
ACCORD, ACERBE;  ACQUIT, ACTEUR, ACTION, ACTUEL 
ACUITE, ADAGIO, ADORER, ADUL ER, ADULTE, AERIEN 
AGACER, AGENCE, AGNEAU, AGREER, AIMANT, ALERTE 
ALOYAU, AMADOU, AMANDE ANANAS, ANEMIE, ANGINE 
ANNEXE, ANODIN, APHONE, APLOMB, APPEAU, AUBURN 
BADAUD BALISE, BALZAN, BAROUF BASSET, BATEAU 
BAVARD, BECANE, BECTER, BELIER, BERGER, BETAIL 
BIELLE, BIGLER, BLAGUE, BLEUET, BOHEME, BOUGIE 
CABRER, CAGEOT, CALICE, CAMPER, CAPTER: CARDAN 
CARMIN, CARTON, CASINO, CAVEAU; CENTON, CERCLE 
CHACUN, CHAPON, CHASTE, , CHEQUE, CHOMER, CISEAU 
CLASSE, CLIENT, CLIQUE, COCHER, COMBLE; CONDOR 
CONGRE, CONTRE, COPAIN, CORNET, CURARE, CURSIF 
DANGER, DEBILE, DECHET, DECOTE, DEDALE, DÉRSSE 
DELICE, DEMAIN, DEPART, DEPUIS, DESERT, DEVIER 
DEVOIR, DICTON, DINGUE, DIRECT, DIURNE, DRAGUE 
ECORCE, ECRIRE, ÉDITER, ELEVER, EMPIRE, ENCLIN 
ENIGME, ESCALE, ESCROC, ESPRIT, ETABLE, EXPRES 
FACHER, FARINE, FAUCON., FELURE. FESTIN, FIGURE 
FLACON, FLAQUE, FLEUVE, FORMAT, FOUINE, FRAISE 
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720 
730 
740 


760 
770 
780 
790 
800 
810 
820 
830 


850 
860 
870 
880 


988 
910 
920 
930 
940 
958 
960 
970 
980 
998 


FRAUDE, FRELON, FRIAND, FRISER, FUREUR, FURTIF 
GALANT, GATEAU, GAUFRE, GLAPIR, GOUJON, GOURDE 
HANCHE ; HARGNE : HAUSSE; HARPIE, HUMIDE ; HUMOUR 
IGNARE, ILLICO, IMPACT, INDIGO, INEPTE, INERTE 
INFAME. INFINI, INTACT, INTIME, IRONIE, IVOIRE 
JAMAIS; JAMBON, JOCKEY, JONQUE, JOVIAL, JUJUBE 
KARATE, KERMES, KIMONO, KIRSCH, KLAXON, KOPECK 
LABEUR ; LABOUR; LACUNE ; LANGUE, LIASSE, LICITE 
LIEVRE, LIMITE, LITIGE, LIVIDE, LOUCHE, LUSTRE 
MACHER. MADERE, MAFFIA, MALICE, MANDAT, MANGUE 
MANIOC ; MARCHE, MARRON, MASQUE ; MEDIUM, MEDUSE 
MEMBRE, MERLIN,MIETTE,MIOCHE, MOTEUR, MOUTON 
NARINE, NECTAR, NOMBRE, NOTICE, NOUGAT, NUANCE 
OCCASE, OCTAVE, OFFICE, ORACLE, OTARIE, OUVRIR 
PAELLA, PAPAYE, PAPIER, PAREIL, PARLER, PATATE 
PATRIE, PATRON, PAUMER, PAYSAN, PEIGNE, PELOTE 
PEPITE, PERCHE,PESTER, PIAULE, PILULE, PLANTE 
POIGNE, POISON, POPOTE, POUPEE, PRETER, PUZZLE 
QUARTZ, QUATRE ; QUICHE, QUILLE, QUINTE, QUITTE 
RACINE, RADEAU, RAGOUT ,RAISIN, RAMURE, RAPHIA 
RAVIER, REGARD, RELIER, RENDRE,RIFIFI, RUSTRE 
SAFRAN, SALAMI, SAPEUR, SAVOIR, SCRIPT, SEIGLE 
SHERIF, SINGER, SIRENE, SOLEIL, SOUPIR, SUIVRE 
TANDEM, TAPAGE, TAQUIN, TENACE, TESSON, TIMBRE 
TOPAZE, TOUPIE, TRAHIR, TRICOT, TRIPLE, TULIPE 
ULCERE, ULTIME, UNIQUE, URBAIN, URGENT, UTOPIE 
VALIDE, VANTER, VESTON, VIVIER, VOISIN, VOLUME 
WAPITI, WHISKY, YAOURT, ZENITH, ZIGZAG, ZOUAVE 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 90 : initialisation 

Après l'initialisation des nombres aléatoires, le programme 
place dans le tableau M$ la liste des 300 mots contenus 
dans les DATA des lignes 500 à 990. 

Lignes 200 à 340 : le jeu 

Le contenu aléatoire de la variable M pointe le mot que le 
joueur doit trouver. 

Après avoir été placé dans la variable Z$, le mot est 
mélangé par la boucle FOR/NEXT des lignes 220 à 270. 
Quand l’anagramme est affiché sur l'écran, le programme 
saisit la solution du joueur. 

Si le résultat est erroné, la ligne 320 affiche le mot 
d'origine. 

Lignes 500 à 990 : les mots 

Si vous avez déjà tapé le programme MORSE il est 


possible de récupérer les DATA en supprimant les lignes 
10 à 410. 


AetB utilisées pour le mélange 
indice de boucle FOR/NEXT 
M numéro du mot choisi 
M$ ) liste des mots 
X$ utilisée pour le mélange 
Z$ mot proposé par le joueur ou l'ordinateur 
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AWARI est un combat stratégique entre l'ordinateur et 
Vous. 

Amstrad vous demande d'entrer votre prénom ; puis, il 
dessine le jeu sur l'écran de cette façon : 





EXEMPLE 1 : 


Tout au cours d’une partie, l'ordinateur affichera votre 
prénom, puis un message, soit : 


PRENOM 
JE JOUE EN 


PRENOM 
QUEL EST VOTRE MOUVEMENT ? 


L'ordinateur joue sur les cases du haut et le joueur sur les 
cases du bas. 


Ily a trois pions au départ dans chaque case. Le jeu 
consiste à déplacer les trois pions d’une case de un en un 
dans les cases suivantes et dans le sens inverse des 
aiguilles d'une montre : 
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EXEMPLE 3 : RESULTAT 


Il conviendra de considérer les cases sous les numéros 
suivants : 


sens du jeu 
<— 


total total 
de 0 0 du 
l'ordin. joueur 






sens du jeu 


EXEMPLE 4 : 


Ainsi, dans l'exemple 2, la case mouvementée était la case 
4 : 


PRENOM 
QUEL EST VOTRE MOUVEMENT ? 
Taper 4. 


Si le dernier pion placé s'arrête dans une case TOTAL, le 
joueur doit rejouer. Si le dernier pion s'arrête avant ou 
après cette case, c'est au joueur adverse de jouer. Dans 
l'exemple 2, c’est au joueur (et non à l'ordinateur) de 
rejouer. 


La partie s'arrête quand toutes les cases de l’un des deux 
joueurs sont vides. 

L'ordinateur signale alors qui a gagné. Le nombre de 
parties gagnées reste d’ailleurs affiché en permanence sur 
l'écran. 

Puis le jeu initial Se redessine, vous invitant à refaire une 
partie … 
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10 REM AWARI 
26 REM ===" 
36 DIM B(14),K(14),G(14),H(14) 
48 MODE 1:INK @,1:INK 1,26:PAPER @:PEN 1:BORDER 1 
59 INPUT"VOTRE PRENOM";PS 
60 PA=1 
76 E=INT(RND+0.5) 
80 CLS:PRINT 
96 PRINT TAB(16);"AWARI" 
106 LOCATE 1,18:PRINT PS 
OO 
190 REM AFFICHE LE JEU 
200 FOR I=1 TO 13:B(I})=3:NEXT I 
218 B(7)=0:B(14)=0 
2206 PLOT 6,208:DRAW 688,200 
230 PLOT 6,232:DRAW 688,232 
246 FOR I=66 TO 546 STEP 80 
250 PLOT I,282:DRAW I,232:PLOT I,208:DRAW I,168 
2606 IF I=66 OR I1=546 THEN PLOT I,232:DRAW I, 208 
270 NEXT I 
288 LOCATE 1,12:PRINT B(14):LOCATE 15,12: PRINT"PAR 
TIE:";PA:LOCATE 36,12:PRINT B(7) 
290 FOR J=13 TO 8 STEP -1 
300 LOCATE 1+(14-J)*5,18:PRINT B(J);" " 
318 NEXT J 
320 FOR J=1 TO 6 
338 LOCATE 1+Jx5,14:PRINT B(J);" " 
348 NEXT J 
380 REM --------- 
390 REM LE JEU 
B=0 


418 FOR I=1 TO 6 

420 IF B(I)<>0 THEN B=1 

430 NEXT I:IF B=0 THEN 1700 

440 B=0 

458 FOR I=8 TO 13 

460 IF B(I)<>@ THEN B=1 

470 NEXT I:IF B=0 THEN 1760 

480 IF E=1 THEN 900 

498 LOCATE 1,19:PRINT CHR$(18);"QUEL EST VOTRE MOU 
VEMENT ? "; 

500 AS=INKEYS:IF AS="" THEN 500 ELSE A=VAL(AS) 
510 IF A<i OR A>6 THEN 500 

520 IF B(A)=0 THEN 500 

530 LOCATE 28,19:PRINT CHRS(A+48):GOSUB 748 
546 IF E=1 AND A=14 THEN 280 

550 IF A=7 THEN 280 

560 IF E=1 THEN E=0:GOTO 288 

570 E=1:GOTO 280 

EUR T4 EEE 

690 REM DEPLACEMENT DES PIONS 
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700 


720 
730 
740 
750 
760 
179 
780 
798 
880 
890 
900 
910 
920 
930 
940 


950 


964 

970 

980 

996 

1806 
1816 
1020 
1030 
1040 
1850 
1060 
1070 
1080 
1098 
1108 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1198 
1200 
1210 
1220 
1230 
1240 
1250 
1268 
1270 
1280 


A=J 

FOR Z=1 TO 14 
B(Z)=G(Z) 

NEXT Z 

P=B(A):B(A)=0 

FOR I=1 TO P 

A=A+1:IF A=15 THEN A=1 
B(A)=B(A)+1 

NEXT I 

REM COUP DE L'AMSTRAD 


LOCATE 1,19:PRINT CHR$(18);"JE JOUE EN” 
FOR J=1 TO 14 


G(J)=B8(J) 
NEXT J 

IF B(13)=1 THEN 1500 
IF B(13)>=3 THEN 1500 
IF B(12)>=3 THEN 1510 
IF B(11)>=4 THEN 1520 
FOR J=13 TO 8 STEP -1 
IF G(J)=0 THEN 1070 
GOSUB 700 

IF A=14 THEN 1550 
H(J)=A 

FOR U=9 TO 13 
Z=U+B(U) 

IF Z=14 THEN K(J)=K(J)+1 
NEXT U 

NEXT J 

Z=0 

IF G(12)>25 THEN 1510 
IF G(8)=1 THEN 1540 
IF G(9)=1 THEN 1530 
FOR J=8 TO 13 

U=K(J) 

JF U>Z THEN GOSUB 1560 
NEXT J 

IF Z>0 THEN 1280 

Z=8 


FOR J=8 TO 12 

U=H(J) 

IF U>7Z AND U>@ THEN GOSUB 1560 
NEXT J 

IF A>7 THEN 1280 

2=7 

FOR J=8 TO 13 

U=H(J 

IF U<Z AND U>6 THEN GOSUB 1560 
NEXT J 

FOR U=8 TO 13 
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1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1480 
1498 
1508 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1680 
1690 
1700 
1716 
1720 
UO" 

1736 
1740 
1750 
1760 
1770 
1780 
1790 
1806 
1810 
1820 
1830 
“ti 
1840 
1850 


136 | 


GOSUB 708 
GOTO 548 
REM 
REM COUP CHOISI PAR L'AMSTRAD 
A=13:GOTO 1280 

A=12:GOTO 1280 

A=11:GOTO 1280 

A=9:GOTO 1280 

A=8:GOTO 1280 

A=J:GOTO 1280 

Z=U: A=J 

RETURN 

REM 
REM RESULTATS 

IF B(14)>B(7) THEN 1790 
IF B(14)<B(7) THEN 1750 
LOCATE 1,19:PRINT CHRS(18); "NOUS SOMMES EXAEQ 


es pu ou ou fe nie ous uw de um cum île mie um us num un um ump es pe 4e Ans ŒuN HW HE AU HU NE um 


E=INT(RND+0.5) 

GOTO 1828 

LOCATE 1,19:PRINT CHRS(18);"VOUS AVEZ GAGNE" 
Ti=T1+] 

E=1 

GOTO 1820 

LOCATE 1,19:PRINT CHR$(18); "J'AI GAGNE" 
T2=T2+1 

F=0 | 

PA=PA+1 L 

LOCATE 3,22:PRINT "AMSTRAD: ";T2;TAB(21);P$;"; 


IF INKEYS$S<>CHRS(13) THEN 1848 
GOTO 200 
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PROGRAMME 


Lignes 30 à 340 : initialisation et dessin du jeu 


Après la déclaration des différents tableaux, le programme 
saisit le prénom du joueur et affiche à l'écran le dessin du 
jeu. 

La variable E détermine le tour du joueur si sa valeur est 0, 
et le tour d'Amstrad si sa valeur est 1. Au premier tour, 
cette variable contient un nombre aléatoire, mais dès la 
deuxième partie, c’est toujours le perdant qui commence. 


Lignes 400 à 480 : test de fin de partie 


Le jeu doit s'arrêter quand un des joueurs n’a plus de 
pions dans son terrain. Dans ces lignes, on vérifie à 
chaque tour cette éventualité. Si c’est le cas, on passe à la 
ligne 1700. 


En ligne 480, le POS lATTIme se Sépare en deux, suivant la 
valeur de E. 


Lignes 490 à 570 : E=0. tour du joueur 


Des l'entrée du mouvement, on vérifie sa validité. En cas 
de mauvaise réponse, comme il n’est pas possible de 
passer son tour, la question est de nouveau posée jusqu'à 
l'obtention d'une réponse correcte. 


L'appel du Sous-programme de la ligne 740 déplace les 
pions des cases concernées. 
Lignes 900 à 1570 : E=1, tour d'Amstrad 


Pour déterminer son choix, Amstrad utilise trois tableaux 
pour comparer les solutions possibles et les plus 
avantageuses. 


La solution trouvée est placée dans À comme pour le 
joueur, ce qui permet d'utiliser le sous-programme de 
déplacement des pions des lignes 700 à 790. 


Lignes 700 à 790 : déplacement des pions 


On déplace les pions de la case pointée par À en les 
distribuant dans les cases suivantes, en considérant que la 
case 15 (inexistante) correspond à la case 1. 


Lignes 1700 à 1850 : résultats 


Dès que l’un des joueurs n’a plus de points, on affiche à 
l'écran le nombre de parties gagnées par chacun ainsi 
qu un message de félicitations. 
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LISTE | À votre mouvement (valeur décimale) 


$ dernière touche enfoncée 
DES VARIABLES : | B si B=0, fin de partie 

B() nombre de pions dans chaque case 

C numéro de la case jouée par Amstrad 

E si E=0 tour du joueur, si E=1 tour d'Amstrad 

G() sauvegarde du tableau B() 

H() nombre de pions dans chaque case après 
déplacement 

| indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 

K() coefficient de chaque case 

P nombre de pions à déplacer 

P$ votre prénom 

PA numéro de la partie 

T1 nombre de parties gagnées par le joueur 

T2 nombre de parties gagnées par Amstrad 

U coefficient de la case étudiée 

Z indice de boucle FOR/NEXT 


| 2 | 1 | 4 | | 


5 (5) 
PARTIE: & 10 
1 8 


1 

6 
LBERT 
E 


FU 
QUEL EST VOTRE MOUUEMENT ? 


AMSTRAD: 1 FULBERT: 6 
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f} 


FUSEE LUNAIRE 


Un navigateur spatial s’entraîne en conduisant une fusée 
d'un côté à l’autre d'une montagne lunaire. Au début du 
jeu, la montagne se dessine sur l'écran, ainsi que la fusée 
et l'endroit opposé où elle doit retomber ; sont aussi 
indiquées les quantités d'oxygène et de carburant. 


Le joueur doit donner la hauteur et la largeur du 
déplacement en deux temps chaque fois. Il doit : 

— préciser le sens positif ou négatif, 

— donner l'amplitude de 1 à 9, 

L'oxygène et le carburant diminuent à chaque coup. 


En cas d'erreur de navigation 6 messages peuvent 
apparaître : 

— ECRASEE SUR LA MONTAGNE, 

— SORTIE DE L'ESPACE, 

— MISE EN ORBITE, 

— LA FÜSEE S'ECRASE, 

— PLUS DE CARBURANT, 

— PLUS D'OXYGENE. 

Des paramètres précis régissent les déplacements de la 
fusée en fonction des données entrées par le joueur. Si 
Vous ne parvenez jamais à poser la fusée, vous pouvez 
toujours jeter un coup d'œil au programme... 


264 
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19 REM FUSEE LUNAIRE 

20 REM ------------"" 

30 MODE 1:INK 6,1:INK 1,24:INK 2,6:INK 3,15: PAPER 
0:PEN 1:BORDER 1 

40 SYMBOL AFTER 128 


50 
60 


RANDOMIZE TIME 
SYMBOL 128,8,8,28,28,28,28,62,62 


76 SYMBOL 129,62,62,62,127,127,119,119,119 


80 

90 

100 
110 
120 
130 
140 
150 
160 


PLOT 0,399: DRAW 639,399:PLOT 6,108:DRAW 639,100 
PLOT 540,100,2:DRAW 580,108 


XM=INT(RND*128)+200 
YM=350-INT(RND#50) 

PLOT 200,100,1:DRAW XM,YM 

DRAW 440,108 

OX=20: CA=300 

X=80:Y=134 

TAG: MOVE X,Y:PRINT CHRS(128);:MOVE X,Y-16:PRIN 


T CHR$S(129); 
280 REM 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
00 

450 
460 
470 


em un = 7 ne im 4 te + 20 ne die un 2 = un = on es om om ue 


REM LE JEU 
MS="VERTICALE":GOSUB 7060:PV=Q 
MS="HORIZONTALE": GOSUB 700: PH=Q 

DX=X: DY=Y: AX=X: AY=Y 

X=X+(PH+AH)#2: Y=Y+(PV+AV)#2 

AH=PH/2: AV=PV/2 

CA=CA-ABS(PH/2)-ABS(PV/2) 

IF Y-DY=Q THEN INC=X-DX ELSE INC=(X-DX)/(Y-DY) 
IF DX<X AND INC<9 THEN INC=-INC 

IF DX>X AND INC>6 THEN INC=-INC 

X=DX-INC:IV=1 

IF DY>Y THEN IV=-1 

FOR I=DY TO Y STEP IV 

Y=I:X=X+INC: SOUND 1,600 ,1 

IF Y>398 THEN 908 

IF X>540 AND X<588 AND Y>132 AND Y<136 THEN 11 


IF Y<134 THEN 916 
IF X<5 OR X>635 THEN 928 
TAG:MOVE AX,AY:PRINT" ";:MOVE AX,AY-16: PRINT" 


"5: MOVE X,Y:PRINT CHRS$S(128); : MOVE X,Y-16:PRINT CHR 
$(129);::AX=X:AY=Y 


480 
30 
490 


IF TEST(X,Y-30)<>0 OR TEST(X+2,Y-32)<>@ THEN 9 
IF TEST(X+8,Y-32)<>0 OR TEST(X+10,Y-32)<>@ THE 


N 930 


500 


IF TEST(X+16,Y-30)<>0 OR TEST(X+14,Y-32)<>0 TH 


EN 930 


510 
20 
530 
X:" 


140 


NEXT I 

OX=0X-1 

TAGOFF:LOCATE 1,20:PRINT CHR$(18); "OXYGENE:";0 
CARBURANT : "; CA 


Super jeux Amstrad 


540 
5950 
560 
570 
680 
690 
700 
710 
720 


) TH 
73 


IF OX<=0 THEN 940 

IF CA<=0 THEN 950 

IF X>540 AND X<588 AND Y=134 THEN 1100 

GOTO 306 

RE 

REM SAISIE 

TAGOFF:PEN 3:LOCATE 1,21:PRINT CHR$S(18);: M$ 
LOCATE 1,22:PRINT CHR$(18); "SENS + OÙ - ?" 
AS=INKEYS:IF AS="" THEN 726 ELSE IF AS=CHRS(13 
EN AS="+" 


0 IF AS$S<>"-" AND AS<>"+" THEN 728 


740 
/50 
760 
770 
780 
880 
890 
900 
910 
926 
930 
940 
958 
960 
508 
9708 
988 
1080 


LOCATE 1,22:PRINT CHRS(18); "CARBURANT (1-9) ?" 

Q=VAL(INKEYS):IF Q<1 OR Q>9 THEN 750 

Q=Q»%2:1F AS$="-" THEN Q=-Q 

LOCATE 1,21:PRINT CHRS(18):PRINT CHR$(18) 

PEN 1:RETURN 

RE 

REM PERDU 

M$="MISE EN ORBITE":GOTO 960 

MS="LA FUSEE S'ECRASE":GOTO 960 

MS$S="SORTIE DE L'ESPACE": GOTO 960 

MS="ECRASEE SUR LA MONTAGNE": GOTO 960 

MS="PLUS D'OXYGENE":GOTO 960 

MS="PLUS DE CARBURANT": GOTO 960 

TAGOFF:PEN 3:LOCATE 1,21:PRINT M$:FOR I=50 TO 
STEP 5:SOUND 1,1,2:NEXT 

IF INKEYS<>CHRS(13) THEN 970 

RUN | 
RER 


1090 REM GAGNE 
1100 TAGOFF:LOCATE 1,21:PRINT"GAGNE":FOR I=5008 TO 


50 S 
1110 
1120 


TEP-5: SOUND 1,1,2:NEXT 
IF INKEYS<>CHRS(13) THEN 1110 
RUN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 160 : initialisation 
La ligne 50 initialise les nombres aléatoires. 


Ce sont les lignes 80 à 130 qui dessinent la montagne. On 
définit la largeur et la hauteur de la montagne par deux 
nombres aléatoires XM et YM. 

Lignes 300 à 570 : le jeu 

Pour entrer le mouvement et la quantité de carburant 
nécessaire, on utilise le sous-programme en 700. On 
incrémente (ou l’on décrémente) la position de la fusée en 
fonction de ces valeurs. Les lignes 320 à 510 déplacent la 
fusée sur l'écran en prenant les anciennes coordonnées 
pour la position de départ et les coordonnées nouvellement 
calculées pour sa position d'arrivée. 


Après affichage de l'oxygène et du carburant restant, on 
teste s'ils sont supérieurs à zéro. Si ce n’est pas le cas, on 
affiche un message correspondant au type d'erreur de vol 
commis (à partir de la ligne 900). 


Dans le cas où les nouvelles coordonnées de la fusée 
correspondent à celles de l’arrivée, on saute aux lignes 
1100 pour le message de félicitations. 


AH et AV accélération horizontale et verticale 


A$ dernière touche appuyée 

CA carburant restant 

DX et DY sauvegarde de X et Ÿ pendant le déplacement 
indice de boucle FOR/NEXT 

INC incrément du déplacement horizontal 

IV incrément du déplacement vertical 

M$ message à afficher 

OX oxygène restant 


PHet PV poussée horizontale et verticale 
Q quantité de carburant à utiliser 
X et Y coordonnées de la fusée 
XMetYM coordonnées de la montagne 
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CHASSE AU 
TRESOR 





Vous n'avez pas de chance au jeu ? Alors voilà une chasse 
au trésor où la ruse et non le pur hasard vous sera utile 
pour gagner. 


Cette chasse au trésor se joue à deux. Une grille de 16 sur 
10 numéros s'inscrit devant vous. Il suffit de déplacer les 
deux chasseurs avec les quatre flèches du clavier selon 
l'itinéraire qui rapportera le plus de points (verticalement et 
horizontalement). 


Attention, ne détruisez pas toute une zone sans prévoir 
un possible retour en arrière fructueux. 

La partie s'arrête quand l’un des deux joueurs a obtenu au 
moins 250 points et les résultats s'affichent alors. Pour 
repartir, il faudra appuyer sur ENTER. 


Maintenant bonne chasse |! 


2 
3 
3 
15 
e 
3 
5 
5 
7 
& 


Qu nn vw og € & 
n © Q © © » D À © 
n © © J © M A nn 4 
w © © © © 1 qu nm © 
n © © Q © © & à & 
OGC Æn cn 
M OU 0 0 © 1 GG œ D © 
@ À 0 © ] D be be 1] 01 
à à © & © © © © © QG 
D J © JS Q SG © © © 
D OO W © be co À © Q Pæ 
SO nue oo CS Q 
M O Go 11 à = à D SO © æ 
œ © 0 à à HN 01 © à 
GO © æ OUI &w M A] © be 


C'EST K QUI JOUE 


# 
(ee) 
LE) 
+ 
 #) 
(94 
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19 REM CHASSE AU TRESOR 

28 REM --------- "2" 

30 SYMBOL AFTER 128 

48 SYMBOL 128,93,93,89,127,28,28,20,119 

59 SYMBOL 129,28,28,24,127,93,127,20,54 

68 SYMBOL 130,93,93,89,127,28,28,20,119 

76 DIM P(17,18) 

80 X(1)=9:X(2)=10 

98 Y(1)=6:Y(2)=5:C(1}=2:C(2)=3 

106 MODE 1:INK @,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
@:PEN 1:BORDER 1 

119 RANDOMIZE TIME 

120 FOR I=1 TO 18 

138 FOR J=2 TO 17 

140 P(J,I)=INT(RND*18):LOCATE Jx2-1,I#2:PRINT P(J, 
T'} 

159 NEXT J 

168 NEXT I 

170 LOCATE 3,24:PRINT "C'EST QUI JOUE "::PEN 2 
PRINT CHRS(129);": ";:PEN 3:PRINT CHRS(129);" 


DBO REM = 

298 REM LE JEU 

300 FOR I=1 TO 2 

310 PEN 2:LOCATE X(1)#2,Y(1)#2:PRINT CHRS(127+1I) 
320 PEN 3:LOCATE X(2)#2,Y(2)*2:PRINT CHRS(128+I) 
336 PEN C(I):LOCATÉE 9,24:PRINT CHRS(128) 

348 AX=X(I):AY=Y(I) 

350 AS=INKEYS:IF A$="" THEN 350 

360 IF A$=CHR$S(242) AND X(I1)>2 THEN X(I)=X(1)-1: GO 
TO 410 

3706 IF AS=CHRS(243) AND X(I)<17 THEN X(I)=X(I)+1:G 
OTO 418 

380 IF AS=CHRS(240) AND Y(I)>1 THEN Y(I)=Y(I)-1:6GO 
TO 418 

390 IF AS=CHRS(241) AND Y(I)<1@ THEN Y(I)=Y(I)+1:0G 
OTO 418 

498 GOTO 354 

418 B=P{(X(I),Y(I)):P(X(I),Y(1))}=0 

428 PEN 1:LOCATE AX»2, AY#2:PRINT "@" 

430 T(I)=T(1)+8 | 

440 LOCATE 17/7+1*7,24:PRINT T(I) 

450 IF T(I)>=250 THEN 600 


468 NEXT I 

470 GOTO 300 

589 REM ------------- 

590 REM RESULTATS 

6088 CLS 

610 IF T(1)>T(2) THEN I=1:GOTO0 630 

620 I=2 

630 PEN 2:LOCATE 15,11:PRINT CHRS(127+1);":";T(1) 
649 PEN 3:LOCATE 15,13:PRINT CHRS(128+1);":";T(2 


) 
654 PEN 1:LOCATE 9,15:PRINT"'C'EST ";:PEN C(I):PRIN 
T CHRS(128);:PEN 1:PRINT " QUI GAGNE" 
660 IF INKEYS<>CHRS(13) THEN 660 
678 RUN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 170 : initialisation 
Les tableaux X() et Y() donnent les coordonnées de départ 
des deux joueurs. 


On affiche à l'écran une grille de nombres aléatoires de 10 
sur 16. Ces nombres sont sauvés dans le tableau P. 


Lignes 300 à 470 : le jeu 


On vérifie les valeurs données par le caractère saisi au 
clavier pour déplacer les joueurs. 

Après déplacement des figures, on ajoute au total des 
points du joueur le nombre sur lequel on vient de se 
placer. On récupère cette valeur dans le tableau P. Ce total 
est affiché au bas de l'écran. 


On vérifie après chaque tour si le joueur ne dépasse pas les 
250 points requis pour gagner (tableau T()). 
Lignes 600 à 670 : résultats 


Un des joueurs ayant dépassé 250 points, on affiche à 
l'écran les résultats de la partie. 


A$ déplacement 
valeur sous le joueur 
AX et AY coordonnées avant déplacement 


| indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

P()_ tableau des points 

T() total des points de chaque joueur 


X() et Y() coordonnées des joueurs 
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EEE 


_ Face à ces tours de Hanoi, vous devrez faire preuve de 
TOU RS DE H ANOI Stratégie, de réflexion et de beaucoup de patience. Il s’agit 
de faire passer sur la tour de droite et dans le même ordre 
un certain nombre de disques empilés sur la tour de 
gauche en vous aidant de la tour du milieu. 


Vous pouvez choisir le nombre de disques à manœuvrer 
entre trois et sept. 


Amstrad demande en bas de l'écran la tour de départ du 
mouvement, puis la tour d'arrivée : entrer 1, 2 ou 3, 
numéros des tours. 


Il refuse les ordres impossibles à exécuter : on ne peut 
poser un disque sur un autre moins large. Par contre un 
disque peut aller de la tour 1 à la tour 3, puis revenir à la 
tour 2. 

l'affiche aussi tout au long du jeu le nombre d'essais. 


Petit conseil : il vaut mieux pour vos nerfs commencer 
par trois disques ! 


TOUR DE DEPART: 


ESSAIS: 16 
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19 REM TOURS DE HANOI 

29 REM -------------" 1 

38 SYMBOL AFTER 128:GOSUB 2088 

48 MODE 1:INK 6,1:INK 1,24:INK 2,15:INK 3,6:PAPER 
O:PEN 1:BORDER 1 

50 INPUT"NOMBRE DE DISQUES"; N 

69 IF N<3 OR N>7 THEN 40 

70 CLS 


X 
148 GOSUB 1580 
E=0 


RE 

199 REM LE JEU 

209 PEN 1:LOCATE 1,18:PRINT"TOUR DE DEPART: ",; 
210 AS=INKEYS:IF A$="" THEN 210 

226 TD=VAL(AS):IF TD<1 OR TD>3 THEN 216 

230 J=TD:GOSUB 800:1F Q=1 THEN 200 

248 DD=I 

250 LOCATE 1,18:PRINT"TOUR D'ARRIVEE:"; 

260 AS=INKEYS:IF A$="" THEN 260 

270 TA=VAL(AS):IF TA<1i OR TA>3 THEN 268 

280 IF TA=TD THEN 200 

290 J=TA:GOSUB 800:IF Q=1 THEN 319 

3066 IF D(TD,DD)>D(TA,I) THEN 200 

310 DA=I+1 

326 D(TA,DA)=D(TD,DD):D(TD,DD}=0 

330 I=TD:J=DD:GOSUB 1006 

348 I=TA:J=DA:GOSUB 1000 

350 E=E+1 

360 PEN 3:LOCATE 1,21:PRINT'ESSAIS:";:PEN 1:PRINT 


3/70 FOR I=1 TON 

380 IF JE 1)=0 THEN 200 

3906 NEXT 

400 PEN >. LOCATE 1,18:PRINT"'REUSSI EN";:PEN 1:PRIN 
T E;:PEN 2:PRINT "COUPS" 

410 IF INKEYS$="" THEN 410 

428 RUN 

fO0 REM == 
798 REM NUMERO DU DISQUE SUPERIEUR 

800 FOR I=7 TO 1 STEP -1 

810 IF D(J,I1)<>6 THEN Q=8:GOTO 830 

820 NEXT I:Q=1 

8306 RETURN 

200 REM sms) 
998 REM AFFICHE LES DISQUES 
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1000 PEN 2:FOR K=7 TO 1 STEP -1 

1918 IF D(I,J)>K THEN LOCATE X(I)-K,Y(I)-J:PRINT C 
HR$(132):GOTO 1040 

1020 IF D(I,J)=K THEN LOCATE X(1)}-K,Y(I)-J:PRINT C 
HR$(131):GOTO 1840 

1030 LOCATE X(I)-K,Y(I)-J:PRINT “ " 

1948 NEXT k 

1858 FOR K=1 TO 7 

1069 IF D(I,J)=K THEN LOCATE X(I)+K,Y(I1)-J:PRINT C 
HR$(130):GOTO 1096 

1070 IF D(I,J)>K THEN LOCATE X(I)+K,Y(I)-J:PRINT C 
HRS(132):GOTO 1898 


1889 LOCATE X(I)+K,Y(I)-J:PRINT " " 

1098 NEXT K 

1108 RETURN 

A RE 

1499 REM DESSIN DU JEU 

15008 FOR I=1 TO 3 

1510 PEN 2:LOCATE X(I),Y(I)-8:PRINT CHRS(128);:PEN 


},Y(I 
3: PRINT " TOUR:";:PEN 1:PRINT I:PEN 2 
1520 FOR J=1 TO 7 
1530 GOSUB 1000 
1540 IF J>1 THEN LOCATE X(1),Y(I)-J:PRINT CHRS(129 


): GOTO 1568 


1550 LOCATE X(I),Y(I)-J:PRINT CHR$S(133) 

1560 NEXT J 

1570 NEXT I 

1580 RETURN 

1988 REM ------------- 

1994 REM GRAPHIQUES 

2806 SYMBOL 128,60,126,255,255,126,60,24,126 
20819 SYMBOL 129,126,126,126,126,126,126,126,126 
2020 SYMBOL 130,8,248,254,255,255,254,248,0 
2038 SYMBOL 131,0,31,127,255,255,127,31,0 

2049 SYMBOL 136,:0,299,299, 295,259, 255, 255,0 
2450 SYMBOL 133,126,126,126,126,126,126,126,255 
2868 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 150 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en 2000, on saisit le nombre de disques à 
jouer entre trois et sept. 


On dimensionne un tableau D pour connaître pendant le jeu 
l'emplacement des sept disques sur les trois tours. 


On remplit le tableau de départ en mettant tous les disques 
Sur la première tour, le disque le plus grand étant placé à 
la position 1. Puis l’on fait appel au sous-programme en 
1500 pour le dessin du jeu. 


Lignes 200 à 360 : déplacement des disques 


On commence le jeu en saisissant le numéro de la tour de 
départ (on déplace dans ce cas le disque supérieur). Le 
Sous-programme en 800 trouve le numéro de ce disque. Si 
cette tour ne comporte aucun disque, on met le drapeau à 
1 (variable Q). Au retour du sous-programme, si Q=1 on 
revient à la saisie de la tour de départ. 


On utilise le même principe pour la tour d'arrivée. Au 
retour du sous-programme en 800, on teste si le disque du 
dessus n'est pas plus petit. Si c’est le cas, on revient à la 
saisie de la tour de départ. 


Lignes 370 à 420 : fin du jeu 


On teste sur la troisième tour si tous les disques sont déjà 
placés. Si ce n'est pas le cas, on retourne à la ligne 200 
pour l'essai suivant, sinon on affiche le message REUSSI 
et le nombre d'essais. 


Lignes 1000 à 1100 : dessin des disques 


Ces lignes dessinent sur l'écran avec des caractères 
graphiques les disques tels qu’ils se trouvent dans le 
tableau D(). 


A$ dernière touche enfoncée 

D() emplacement des disques sur les tours 

DA emplacement du disque sur la tour d'arrivée 
DD emplacement du disque sur la tour de départ 
E nombre d'essais 

l'etJ coordonnées du disque à afficher 

K indice de boucle FOR/NEXT 

N nombre de disques 

Q si Q=1, il y a erreur de déplacement 

TA tour d'arrivée 

TD tour de départ 


X()et Y(} coordonnées des trois tours 
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150 


Prenez une grille de trois sur trois, deux joueurs et des 
OX0 pions différents pour chacun d'eux. Vous obtenez l'un des 

plus vieux jeux du monde que les hommes ont d'abord 

dessiné puis effacé des milliers de fois sur le sable. 

Ici chaque joueur place un pion à tour de rôle en indiquant 

un numéro de case sur la grille. Chacun doit empêcher 

l'autre d'en aligner trois, sans quoi il perd. 

La partie Se joue très serrée contre l'ordinateur qui ne 

laissera passer aucune étourderie. || suffit d'appuyer sur 

ENTER pour commencer une autre partie. 


Méfiez-vous ! Votre Amstrad est très difficile à battre. 


NUMERO DE LR CASE 7? 3 
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18 REM OX0 

20 REM ------------- 

30 DIM I(4}),J(4):DEG 

40 T-9 

950 MODE I1:INK O6,1-INK 1,24:INK 2,6:INK 3,15:PAPER 
O:PEN 1:BORDER 1! 

64 FOR J=1 TO 3 

74 FOR I=@ TO 2 

84 PLOT 200+I1+80,460-J*x8@:DRAWR 80,0:DRAWR 0,-80:0D 
RAUR -88,8:DRAWR 0,80 

90 PEN 2:LOCATE 14+1#5,9J#5-2: PRINT RIGHTS(STRS(I#3 
+J),1):PEN 1 

109 NEXT:NEXT 

119 GOTO 408 

120 IF T=9 THEN 1148 

130 PEN 3:LOCATE 1,2@0:PRINT CHR$S(7); CHRS (18); "NUME 
RO DE LA CASE ?";:PFN 1 

140 A=VAL(INKEYS):IF A<1 OR A>9 THEN 149 ELSE PRIN 
T A 

150 X=INT(A/3.5):Y=A-(X#3) 

16@ IF P(X+1,Y)<>Q THEN 130 

178 FOR I=1 TO 360 STEP 6 

180 MOVE 2480+X*80,420-Y#80:PLOTR 18#*CO0S(1),18*SIN( 
1):NEXT 

199 P(X+1,Y)=1 

200 T=T+1 

380 REM ------------- 

394 REM COUP DE L'ORDINATEUR 

400 IF P(2,2)=@ THEN X=2:Y=2:GOT0 688 

410 FRASE I,J:DIM I(4),9(4):P=1:GOSUB 808 

420 FOR I=1 TO 4 

430 TF I(I)=3 OR J(I)=3 THEN 1108 

440 NEXT 

450 ERASE I,J:DIM I1(4),J(4):P=2:GOSUB 808 

469 FOR JI=1 TO 4 

470 IF I(I)}=2 OR J(I)=2 THEN 508 

480 NEXT 

490 P=1 

500 ERASE I,J:DIM I(4),J(4) 

510 X=0:Y-0:M=0 

520 GOSUB 800 

530 FOR I=1 TO 4 


540 IF I(I1)=3 OR J(I)=3 THEN 1108 
559 IF I(I1)}>=M THEN X=I:Y=0:M=I(1) 
568 IF J(I)>=M THEN Y=1:X=0:M-J(1) 


570 NEXT 
580 IF T=9 THEN 1140 

599 IF P=1 AND M=2 THEN 610 

609 P=P+1:IF P<3 THEN 508 ELSE P=2 

618 IF X=4 THEN IF P(1,1)=@ THEN X=1:Y=1:GOTO 680 
ELSE X=3:Y=3:GOTO 688 

620 IF Y=4 THEN IF P(1,3)=0 THEN X=1:Y=3:GOTO 680 
ELSE X23:Y=1:GOTO 688 

630 IF X=-0@ AND Y=06 THEN X=1 

640 FOR I=1 TO 3 

658 IF Y=8 AND P(X,I)=0 THEN Y=I 

660 IF X=@ AND P(I,Y)=8 THEN X=I 

670 NEXT 

688 P(X,Y)=2 
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690 PEN 3:LOCATE 1,26:PRINT CHRS(7); CHRS(18);"JE 9 
OUE EN";:PEN L:PRINT (X-1)#3+Y | 

700 PLOT 145+X#80,435-Y#80: DRAWR ‘35,0:DRAWR 8,-35: 
DRAWR -35,0:DRAWR 0,35 


710 
720 
730 
780 
798 
800 
810 
820 
830 
840 
858 
860 
870 
880 
890 
906 
910 
920 
930 
940 
950 
968 
970 
988 
1088 
1090 
1100 
1110 


FOR I=1 TO 28@6@:NEXT 


IF P=2 AND M=2 THEN 1108 


T=T1+1:GOT0 128 


REM -------- 2-2 


REM COMPTE LES CASES 
C=0:D=-0 

FOR I=1 TO 3 

A=0:B=0 

FOR 9J=1 TO 3 


IF P(I,J)=P THEN I(I)21(1)+#1 
IF P(I,J)<>@ THEN A=A+i 
IF P(J,I)=P THEN J(I)=9(1)+1 
IF P(J,1)<>6 THEN B=B+1 


NEXT J 


IF A=3 AND I(I)<>3 THEN I{I)- 
IF B=3 AND J(I)<>3 THEN J(I)-= 
)+1 


nr, un, 


— ue et CU D un ne un pm = = + 


IF P(I,I)<>0 THEN C=C+i 

IF P(I,4-I)=P THEN J(4)=9(4)+1 
IF P(I,4-1)<>Q THEN D-D+1 
NEXT I 

IF C=3 AND I1(4)<>3 THEN I 

IF D=3 AND J(4)<>3 THEN J 
RETURN 

REM ----------------- 

REM RESULTATS 


LOCATE 1,28:PRINT CHRS(18); 
IF P=1 THEN PRINT"VOUS GAGNEZ" 


FOR 1-16 TO @ STEP-1:PRINT CHRS(7);:FOR J=1 T 


choix du joueur 

nombre de pions déjà posés dans une ligne, 
colonne ou diagonale 

dernière touche appuyée 

indice de boucle FOR/NEXT 

nombre de pions dans chaque colonne 
indice de boucle FOR/NEXT 

nombre de pions dans chaque ligne 
nombre de pions autour de la case choisie 
P=1 pion du joueur, P=2 pion de 
l'ordinateur 

position des pions dans la grille 

nombre de pions déjà posés 


1120 IF P=2 THEN PRINT"'JE GAGNE" 
1130 GOTO 1168 
1140 LOCATE 1,28:PRINT CHRS(18); 
1150 PRINT"PARTIE NULLE" 
1168 
O I#I+10:NEXT:NEXT 
1170 LINE INPUT A$:RUN 
LISTE | À 
A,B,C,D 
DES VARIABLES : 
AS 
I() 
J 
J() 
M 
P 
P(.) 
- 
X et Y 
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coordonnées sur la grille du coup du joueur 
ou de l'ordinateur 


PROGRAMME 


Lignes 30 à 120 : initialisation 


Les boucles FOR/NEXT des lignes 60 à 100 affichent le 
dessin du jeu. 


Lignes 120 à 200 : coup du joueur 

Après avoir testé si la partie est terminée (T=9), le 
programme saisit le choix du joueur. Les lignes 140 et 160 
vérifient que le coup est possible, et les lignes 170 et 180 
affichent le pion. 


Lignes 400 à 730 : coup de l'ordinateur 


Les lignes 400 à 440 vérifient si le joueur a gagné en 
utilisant le Sous-programme en 800 qui compte le nombre 
de pions dans chaque ligne, colonne et diagonale. 


Les lignes 450 à 490 utilisent le même principe mais pour 
les pions de l'ordinateur. Si deux pions sont déjà alignés, 
on ne cherche plus à bloquer l'adversaire. 


Les lignes 500 à 570 recherchent la meilleure case à jouer, 
donc celle où il y a le plus de pions de l'adversaire ou de 
ses propres pions. La meilleure valeur est conservée dans 
la variable M. 

Si l'adversaire a déjà deux pions d’alignés (ligne 590), on 
va directement en ligne 610 pour occuper la troisième 
case. 


Les lignes 610 à 670 recherchent une solution si les lignes 
précédentes n'en avaient pas trouvée. 

Ce sont les lignes 690 et 700 qui affichent le coup choisi 
par l'ordinateur. 


Lignes 800 à 980 : compte les cases 


Ce sous-programme compte le nombre de pions P de 
chaque ligne, colonne ou diagonale. Si trois pions (de 
n'importe quel joueur) sont déjà alignés, on ne tient pas 
compte des tableaux | et J (rôle des variables A, B, C et D). 
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TAQUIN 





Le taquin ou puzzle à 15 a été inventé par Sam LLOYD aux 
Etats-Unis dans les années 1880. || se compose d'un 
plateau et de quinze plaquettes numérotées de 1 à 15 que 
l'on dispose en désordre (plus de vingt mille milliards de 
possibilités). Le vide sur le plateau permet de bouger les 
plaquettes pour les remettre dans leur ordre croissant. 
Lancez le programme en tapant RUN. Après quelques 
instants, le temps de mélanger le taquin, le plateau 
s'affiche à l'écran. 

Seules les plaquettes voisines de la case vide peuvent se 
déplacer. 

I ne s'agit pas du jeu original de Sam LLOYD. En 
conséquence, toutes les positions de départ permettent 
une reconstitution de l'ensemble du jeu. 


CAGUTIN 


| 11 


3 | 14 | 15 
| | 


SUEL NUMERO? 16 


ESSAIS: 46 
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10 REM TAQUIN 

0@ REM ---------- 2-0 0 2 

30 MODE 1:INK 0,1:INK 1,24:INK 2,15:INK 3,6:PAPER 
0: PEN 1:BORDER 1 

40 DIM T(16) 

50 D(1)=-4:D(2)=4:)(3)=1:D(4)=-1 

60 PEN 3-PRINT TAB(17); "TAQUIN'":PEN 1 

7/0 RANDOMIZE TIME 

184 REM -------------- 

190 REM MELANGE DU TAQUIN 

208 FOR I=1 TO 15:-T(I)=I:NEXT I 

210 V=16:E-=0 

220 FOR I=] TO 128 

230 A=INT(RND*4)+1 

24Q IF V+D(A)<1 OR V+D(A)>16 THEN 230 

250 IF INT(V/4)=V/4 AND A=3 THEN 230 

269 IF INT(V/4)=(V-1)/4 AND A=4 THEN 230 

27Q T(V)=T(V+D(A)) 

284 T(V+D(A))=08 

2904 V=V+D{ 
300 NEXT I 
380 REM ------------- 2 

390 REM DFSSTN DU TAQUIN 

448 FOR T=227 T0 462 STEP 80 

410 PILOT 147,338:DRAW T,338:DRAW T,146:DRAW 142,14 
b:DRAW 147, 338 

420 NEXT I 

4308 FOR I=114 TO 254 STFP 48 

440 PIOT 142,338:DRAW 462,338:DRAW 462,4@08-I:DRAW 
142,4808-T: DRAU 142,338 

450 NEXT T:PEN 2 

464 FOR I=0 TO 15 

470 IF T(I+1)=0 THFN 510 

480 IF T(l+1)<10 THFN 509 

498 LOCATF 16+5*x(I-INT(I/4)#4),6+INT(I/4)#3:PRINT 
T(f+1):G0T0 518 

SÛÛ DOCATF 1]+5#(T-INT(1/4)*x4),6+INT(I1/4})*x3:PRINT 
a) 

510 NEXT I 

80 REM --------- 

999 REM IF JEU 

600 PEN JI-LOCATE 13,19:PRINT CHR$S(18);:INPUT"QUEL 
NUMERO"; RS:R=VAL(RS) 

610 [IF R<I OR R>15 THEN 6600 

620 FOR I=1 T0 16 

630 IF R=T(1) THFN 650 

640 NFXT I 

654 R=T 

664 FOR T=1 TO à 

674 IF R+D(T)>16 OR R+H(IT)<1i THEN 694 

b8O TF T(R+N(T))=4 THEN 710 
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699 NEXT I 

708 GOTO 608 

718 T(R+D(I))}=T(R) 

726 T(R)=0 

730 R=R-1 

748 LOCATE 11+5»(R-INT(R/4)#4),6+INT(R/4)*x3: PRINT" 


758 J=R+D(T):PEN 2 

760 IF T(J+1)<108 THEN 7/80 

779 LOCATE 10+5%(J- INT(J/4)#4), 6+INT(J/4)#3: PRINT 
T(J+1):GOTO 790 

789 LOCATE 11+5%(J- INT(J/4)*4), 6+INT(J/4)#3: PRINT 
T(J+1) 

790 F=E+1:PEN 3:LOCATE 15,22:PRINT'"'ESSAIS:":E 

880 REM --------mmmmmmm_—… 

896 REM FIN DU JEU 

9008 FOR I=1 TO 15 

914 IF T(I)<>I THEN 600 

920 NEXT TI 

930 LOCATE 10,19:PRINT"'O.K VOUS AVEZ TROUVF" 

940 IF INKEYS<C>CHRS(13) THEN 940 


958 RUN 
LISTE A nombre aléatoire pour le mélange du taquin 
D() direction du déplacement 
DES VARIABLES : | E nombre d'essais 
| indice de boucle FOR/NEXT 
J indice de boucie FOR/NEXT 
R$ réponse du joueur 
R numéro de la case à déplacer 
T() contient les nombres du taquin 


pointeur de la case vide 
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PROGRAMME 





Lignes 30 à 300 : initialisation et mélange 

Le tableau T correspond aux seize cases du taquin. On y 
place donc les numéros de 1 à 15 (ligne 200). Le tableau D 
correspond au déplacement des plaquettes. 


Tableau T() Tableau D() 


On mélange les numéros en permutant deux cases 
désignées par un nombre aléatoire et le pointeur de la case 
vide (variable V). Cent vingt-huit permutations sont 
nécessaires pour mélanger correctement le taquin. 


Lignes 400 à 510 : dessin du taquin 

On affiche le jeu à l'écran dans le nouvel ordre (ou plutôt 
désordre !). 

Lignes 600 à 790 : le jeu 


On déplace le numéro tapé par le joueur en vérifiant qu'il 
n'est pas inférieur à 1 ou supérieur à 15, et qu'il est bien 
placé à côté de la case vide. Le déplacement est calculé 
avec le tableau D. 


Lignes 900 à 950 : fin du jeu 


À chaque essai on vérifie qu’il reste des plaquettes dans le 
désordre. Si c'est le cas on retourne à la ligne 600 pour un 
nouvel essai. 
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IFn’'est peut-être pas encore 19 heures mais rien ne vous 
LE CO MPTE EST empêche de commencer dès maintenant à vous entraîner 
au « compte est bon ». 


BON Au bout d'un certain temps de réflexion, Amstrad vous 
présente sept nombres aléatoires qu'il vous faudra 
combiner avec les quatre opérations pour trouver le 
huitième indiqué au milieu de l'écran. 

Cinquante secondes plus tard, votre ordinateur affiche 
alors sa solution. 

H vous reste encore du temps ? Alors tapez sur le clavier 
(pas trop fort !) et une autre série de nombres apparaîtra. 


LE COMPTE EST BON 
106 
ra 


——) 003 


MA SOLUTION... 
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. ES LE COMPTE EST BON 

30 MODE 1:INK @,1:INK 1,24:INK 2,6:PAPER 8:PEN 2:B 
ORDER 1:PRINT TAB(11):" LE COMPTE EST BON'":PRINT:P 
EN 1 

40 RANDOMIZE TIMF:NC=INT(RND#4)+4 

5 ne ue 

60 FOR I=1 TO NC 

70 N(T)=INT(RND*14)+1 

80 IF N(I)<11 THEN 190 

98 N(T)=(N(I)-10)x#25 

140 IF I>1 THEN 139 

110 R=N(1):S$S=STRS(N(1)) 

1206 GOTO 290 

130 O=INT(RND+x6)+1 

140 S$=S$+"S"+STRS(R) 

150 ON O GOTO 16@,180,210,240,210,240 
160 R=R+N(I):S$-= SS+"4+"4+STRS(N(I)) 

1/0 GOTO 270 

180 R=R-N(T)-IF R<1 THEN 40 

198 S$=S$+"-"+STRS(N(I)) 

208 GOTO 278 

218 IF N(I)=1 THEN 40 

220 R=RaN(I}):S$=S$+"#"+STRS(N(I)) 

238 GOTO 270 

248 IF INT(R/N(I))<>R/N(I) THEN 40 

250 IF N(I)=1 THEN 70 

260 R=R/N(I):S$=S$+"/"+STRS(N(I)) 

270 IF R>999 THEN 49 

289 S$=S$+"="+STRS(R) 

290 NEXT I 

300 IF R<184 THEN 4@ 

310 IF NC=7 THEN 500 

38Q RFM ----------- 
390 REM AUTRES NB 

480 FOR I=NC+1 TO 7 

410 N(T)=INT(RND+14)+1 

420 IF N(I)<ii THEN 440 

430 N(T)=(N(I)-18)+25 

440 NEXT I 

4804 REM -------------- 2 
490 REM MELANGE 

500 FOR I=1 TO 14 

910 A=INT(RND#7)+1 

920 B=INT(RND=x7)+1 

530 C= is N(A)}=N(B):N(B)=C 

540 NEXT 1 

589 REM -------------- 0 
590 REM NB PROPOSES 

600 FOR I=1 TO 7 

619 PRINT " “:N(I), 
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628 NEXT I 
630 PRINT: PRINT 

649 PRINT TAB(14);"-->";R: PRINT: PRINT 

689 REM ---------" 

698 REM BOUCLE 

700 PRINT CHR$(7);: 

710 FOR I=1 TO 28500 

720 NEXT I 

730 PRINT CHR$S(7) 

700 REM ------""…-. 2)... 

790 REM SOLUTION 

808 PRINT" MA SOLUTION...":PRINT:PRINT T 
AB(11); 

810 FOR I=1 TO LEN(SS$) 

820 IF MIDS(S$,1,1)="$" THEN PRINT:PRINT TAB(11);: 
GOTO 848 

838 PRINT MIDS(SS,I,1): 

840 NEXT I 

850 IF INKEYS<>CHRS(13) THEN 850 

868 RUN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 310 : initialisation 


La variable NC contient un nombre aléatoire compris entre 
4 et 7 donnant le nombre d'opérations à effectuer pour 
parvenir à la solution. Les chiffres utilisés pour ces 
opérations sont placés dans le tableau N, l'opération elle- 
même étant placée dans la chaîne S$ et le résultat dans R. 


Dans le cas où la variable R est supérieure à 999 ou 
inférieure à 100, on retourne au début du programme 
(ligne 40). 


Lignes 400 à 440 : autres chiffres 

Si le nombre de chiffres NC est inférieur à 7, on complète 
le tableau N avec d’autres chiffres aléatoires. 

Lignes 500 à 540 : mélange 

Pour dérouter le joueur, on mélange le tableau N en 
utilisant deux nombres aléatoires A et B. 

Lignes 600 à 730 : nombres proposés et boucle d'attente 


Apres l'affichage des 7 chiffres, on effectue une boucle 
fermée (lignes 710 et 720) d'environ 50 secondes, le 
temps que le joueur trouve une solution. 


Lignes 800 à 860 : solution 


La boucle d'attente étant terminée, on affiche à l'écran la 
solution de l'ordinateur en découpant la chaîne de 
caractères S$ avant de retourner à une nouvelle 
proposition dès qu'une touche est enfoncée (ligne 850). 


AetB nombre aléatoire pour le mélange 
utilisée pour les inversions dans le mélange 
| indice de boucle FOR/NEXT 


NC nombre de chiffres utilisés pour le nombre à 
trouver 

N() tableau des chiffres aléatoires 

0 type d'opération à effectuer 

R résultat des opérations 

S$ liste des opérations effectuées pour trouver la 
solution 
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Plus 
QUE 27 POINTS 
À RATTRAPER 





Jouez au baccalauréat avec votre Amstrad ! 


BACCALAUREAT 


L'ordinateur choisit pour vous une lettre au hasard. Vous 
devez trouver des noms de personnages célèbres, de pays, 
de villes, d'animaux et de végétaux commençant par cette 
lettre. Après le temps qu'il vous conviendra, et dès que 
vous aurez appuyé sur la touche ENTER, le programme 
propose ses solutions parmi les 650 mots déja dans la 
machine. 


RACCALAURERT 


J'AI CHOISI Là LETTRE P 


ÂGE CELERBRE : 
ETAT : 


APPUTEZ SUR ENTER” 
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19 REM BACCALAUREAT 
REM 


30 MODE 1:INK 6,1:INK 1,24:PAPER O6:PEN 1:BORDER 1 
40 DEFINT A-Z 

50 DIM N$(26,5,5) 

60 RANDOMIZE TIME 

79 LOCATE 10,180:PRINT"JE M'INSTRUIS ..." 

80 LOCATE 2,14:PRINT'"'LETTRE:"; 

96 FOR I=1 TO 26 

100 PRINT CHR$(I+64 ); 

110 FOR J=1 TO 5 

120 FOR K=1 TO 5 

130 READ N$S(I,J,K) 

140 IF ASC(NS(I,J,K))<>1+64 AND NS$S(I,9J,K)<>"#" THE 
N LOCATE 0,28:PRINT"ERREUR DANS LES DATAS A LA LET 
TRE "; CHRS(I+64): STOP 

150 NEXT:NEXT:NEXT 

180 REM ---------------- 

190 REM LE JEU 

290 L=INT(RND+26)+1 

218 CLS:LOCATE 15,2:PRINT"'BACCALAUREAT" 

220 LOCATE 9,9:PRINT"'J'AI CHOISI LA LETTRE ";CHRS( 
L+64) 

230 PRINT:PRINT:PRINT"'PERSONNAGE CELEBRE:":PRINT"P 
AYS OU ETAT:" 

240 PRINT'VILLE:":PRINT"'ANIMAL:":PRINT"'VEGETAL:" 
250 LOCATE 1,20:PRINT"APPUYEZ SUR 'ENTER' POUR MA 
SOLUTION" 

260 IF INKEY$S<>CHR$S(13) THEN 260 

270 FOR I=1 TO 5 

280 LOCATE 21,1+11 

298 N=INT(RND+*5)+1 

300 IF L=24 AND I=2 THEN PRINT"'PAS DE PAYS EN X':G 
OT0O 330 

310 IF NS(L,I,N)="#" THEN 290 

328 PRINT N$(L,I,N) 

330 NEXT 

340 LOCATE 1,20:PRINT CHR$(18}); TAB(11});"APPUYEZ SU 
R ‘"ENTER'" 

350 IF INKEYS<>CHRS(13) THEN 350 

368 GOTO 208 

480 REM ------------------------------- 

490 REM DONNEES 

500 DATA ADAM,ADER, ANDERSEN, ANQUETIL, ARAGON 

510 DATA AFGHANISTAN, ALGERIE, ALBANTE, ALLEMAGNE, ARG 
ENTINE 

920 DATA ABIDIJAN, ACAPULCO, AIME, AJACCIO, ALGER 

930 DATA AIGLE, AIGRETTE,ALLIGATOR, ANTILOPE, ARA 

540 DATA ACONIT, AMANITE, ANEMONE, ARACHIDE, ARTICHAUT 
9290 DATA BACH, BALZAC,BARTOK, BAUDELAIRE, BLERIOT 

960 DATA BULGARIE, BELGIQUE,BRESIL, BOLIVIE, BIRMANIE 
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5/0 DATA 
5806 DATA 
598 DATA 
609 DATA 
610 DATA 
62@ DATA 
EAU 

630 DATA 
640 DATA 
650 DATA 
S 

660 DATA 
STAN, * 
6/7@ DATA 
680 DATA 
690 DATA 
/88 DATA 
7/10 DATA 
IE 
720 
730 
HANT 
748 
759 
760 
770 
788 
790 
800 
810 
820 
830 
840 
R 
850 
860 
870 
G 
880 
898 
LA 
918 
920 
950 
948 
950 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
968 DATA 
970 DATA 
NS TOWN 

980 DATA 
998 DATA 
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BADEN-BADEN, BAGDAD, BALE, BAYEUX, BRUXELLES 
BADOUIN, BALEINE, BAR, BASSET,BELETTE 
BANANE, BAOBAB, BRUYERE, BRUGNON, BAZZIA 
CALIGULA, CALVIN, CAMUS, CARNOT, CHURCHILL 
CAMBODGE, CAMEROUN, CANADA, CHILI,CHINE 
CAHORS, CALAIS, CASABLANCA, CHAMBERY, CONCARN 


CHAFT,CAILLE,CHEVAL,CHEVREUIL, CONDOR 
CACAOYER, CACTUS, CAMELIA,CERISE, CHOUX 
DAGOBERT,DAGUERRE, DANTON, DENEUVE, DESCARTE 


DANEMARK, DAHOMEY, DOMINICAINE (REP.}),DAGHE 


DAKAR, DELHI, DIEPPE, DJIBOUTI, DOUBAI 

DAIN, DAUPHIN, DOGUE, DALMATIEN, DINOSAURE 
DATTE, DAHLIA,DIONEE, DYTIQUE, DAPHNEE 
EDISON,EIFFEL,EINSTEIN, ELUARD, EURIPIDE 
ETHIOPIE, ESPAGNE, EQUATEUR, ETATS-UNIS, EGYP 


EVIAN, EVREUX, EDIMBOURG, ETRETAT, ETAMPE 
ECREVISSE, EPINOCHE, ESCARGOT, ECUREUIL, ELEP 


EPICEA, EPINARD, EGLANTIER, ELLEBORE, ENDIVE 
FANGIO, FARADAY, FAURE, FELLINI, FERNANDEL 
FINLANDE, FRANCE ,æ,, # | 

FLORENCE, FALAISE, FATIMA, FRANCFORT, FERRARE 
FAISAN, FAON, FAUCON, FAUVETTE, FURET 

FUSAIN, FRAISE, FIGUE, FUCHSIA, FOUGERE 
GABIN, GAGARINE, GALLIENI, GALILEE, GAMA 
GABON, GHANA, GRECE, GUATEMALA, GUYANE 
GRENADE, GDANSK, GENES, GENEVE, GLASGOW 
GAZELLE, GELINOTTE, GERBOISE, GIBBON, GIRAFE 
GAINIER, GIROFLEE, GLAIEUL, GLYCINE, GRENADIE 


HIPPOCRATE,HINAULT,HITCHCOK, HOMERE,HESSE 
HONGRIE, HONDURAS, HAWAI, HAITI, HONG-KONG 
HAMBOURG, HANOI, HELSINKI, HIROSHIMA, HAIPHON 


HAMSTER, HANNETON, HIBUU, HIRONDELLE, HOMARD 
HARICOT,HETRE, HEVEA,HELIANTHE, HELIOTROPE 
INGRES, IONESCO, ISABEY, INDY, ICARE 

IRLANDE, INDE, ISRAEL, ITALIE, ISLANDE 
ISTANBUL, IRKOUTSK, IBIZA, ISPAHAN, IZMIR 
IBIS, IDE, [GUANODON, IMPALA, IXODE 
[CAQUIER, IGNAME, IRIS, IPECA, IPOMEE 
JACQUARD, JARRY, JAURES, JUNOT, JENSEN 

JAPON, JORDANIE, JAMAIQUE, JERSEY, JUILAND 
JAFFA, JERUSALEM, JOHANNESBURG, JEMAPPES, JOH 


JAGUAR, JABIRU, JACASSE, JACO, JARS 
JOUBARDE, JASMIN, JACINTHE, JUTE, JONQUILLE 
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1000 
1810 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
ACO 
1120 
1130 
1140 
1150 
1160 
1179 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
ES 
1270 
1280 
1298 
1300 
AT 
1310 
1320 
N 


1330 
1340 


, QUINQUINA 


1350 
INI 

1360 
1370 
1380 
1390 
1400 
1410 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


L,SOMALIE 


1420 
LM 


DATA 


KENNEDY,KAFKA, KAPLAN, KEATON, KESSEL 
KENYA, KOWEIT, KANSAS, KAZAKHSTAN, KIRGHIZIE 
KABOUL , KIEV, KARACHI ; KATMANDOU, KIROV 
KOALA, KOB, KANGOUROU, KINKAJOU, KERABAU 
KAKI, KAPOKIER, KARITE, KAWA, KOLATIER 
LAMARTINE, LULLI, LUTHER,LISZT,LAFITTE 
LAPONIE, LAOS, LIBAN, LIBERIA, LYBIE 

LASSA, LAS VEGAS, LILLE,LISBONNE, LONDRES 
LEZARD, LANGOUSTE, LIEVRE, LAMA, LOUTRE 

LIN, LYS, LIERRE, LENTILLE, LAITUE 

MUSSET, MAHOMET, MOZART, MAURIAC, MARX 
MEXIQUE, MAURITANIE, MALDIVES,MALAYSIE, MON 


MADRID, MUNICH, MELBOURNE, MAYENCE, MILAN 
MANCHOT, MORUE, MOUCHE, MAINATE, MOULE 
MUGUET, MACHE, MAIS, MANDARINE, MOUTARDE 
NELSON. NIETZSCHE, NOBEL, NICOT, NEWTON 
NIGER, NORVEGE, NICARAGUA, NEPAL, NIGERIA 
NAPLES, NOUMEA. NAIROBI, NAGASAKI, NANTES 
NAJA, NANDOU, NAUTILE,NEPE,NEREIDE 

NAVET, NARCISSE, NEFLE, NENUPHAR, NOIX 
OFFENBACH, OHM, OBERKAMPF,OLIVARES, OUDINOT 
OUGANDA, OREGON, OHIO, ONTARIO, OKLAHOMA 
OTTAWA, OSTENDE, OSLO, OSAKA, ORLEANS 

OKAPI, ORANG-OUTANG, ORVET,OTARIE, OURS 
OSEILLE,ORTIE,ORCHIDEE, ORANGE, OLIVE 
PAGNOL, PAPIN, PARMENTIER, PASCAL, PASTEUR 
PAKISTAN, PANAMA, PARAGUAY, PEROU, PHILIPPIN 


PALERME, PARIS, PARME, PEKIN, PHILADELPHIE 
PANDA, PAON, PANTHERE, PELICAN, PERCHE 
PALMIER, PAPAYER, PASTEQUE, PAVOT, PERVENCHE 
QUINET, QUILLARD, QUINTANA, QUINTON, QUICHER 


QATAR, QUREC, #,#, « 
QUETTA, QUEZON CITY, QUIBERON, QUITO, QUINTI 


QUELEA, QUISCALE, QUETZAL , *, * 
QUASSIA, QUATRE-EPICES, QUEBRACHO, QUETSCHE 


RABELAIS,RACINE,REMBRANDT,RICHELIEU, ROSS 


RHODESIE, REUNION, ROUMANIE, RUANDA, RUSSIE 
RABAT, ROCAMADOUR, ROME, ROUEN, REIMS 
RAIE,RAINETTE,RAT,RENNE, ROUSSETTE 
RAISIN, RAPHIA, ROSE, RHUBARBE, RICIN 
SADE, SARTRE, SCHUBERT, SHAKESPEARE, STALINE 
SUEDE, SALVADOR, SAINT-MARIN (REP.),SENEGA 
SAIGON, SALZBOURG, 


SANTIAGO, SAUMUR, STOCKHO 
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1430 
ELLE 
1449 
1450 


DATA 


DATA 
DATA 


ISTOCLE 


1468 


DATA 


TURQUIE 


1470 
$ 

1480 
1490 
1500 
1510 
1528 
1530 
1540 
1550 
1568 
1570 
1580 
1598 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 


VERVEINE 
1608 DATA 
16106 DATA 
1620 DATA 


HINGTON 


1650 
1640 
1650 
1660 
1670 
1680 
16098 
1/00 
1710 
1720 
1730 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


KSHIRE 


1/48 
1750 
1760 
1770 
REB 

1780 
1790 


166 | 


DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


SAJOU, SALAMANDRE, SANGLIER, SARDINE, SAUTER 


SALSIFIS, SAUGE, SAULE, SEIGLE, SEQUOIA 
TCHAIKOVSKI, TELEMANN,TIBERE, TROTSKI, THEM 


TANZANIE, TCHAD, TCHECOSLOVAQUIE, THAILANDE 
TOMBOUCTOU, TOULOUSE, TOURNUS, TRIPOLI, TOUR 


TORTUE, TAPIR, TARENTULE, TATOU, TAUPE 
TOMATE,TREFLE, TROËNE, TULIPE, TABAC 
ULYSSE,UREY, UTAMARO, URREDA, URRAQUE 
URUGUAY, URSS, UKRAINE, USA, UTAH 
UTRECHT,USTER,UZEL, URRUGNE, URUGUAIANA 
URUBU, UROCYON, URANIE , URANOSCOPE, * 

UPAS, URUNDAY, USNEE, *. » 

VAILLANT, VALERY, VAUBAN, VAUVENARGUES, VERD 


VENEZUELA, VIET-NAM, *,«,« 

VIENNE, VENISE, VANCOUVER, VERDUN, VINCENNES 
VANNEAU, VIPERE, VARAN, VAUROUR, VIGOGNE 
VICTORIA-REGIA, VIGNE, VIOLETTE, VOLUBILIS, 


WAGNER,WATT,WATTEAU, re WILDE 
WISCONSIN, WYOMING, *, 
WORCESTER, WORMS, MINCHÈSTER, WATERLOO, WASC 


WAPITI, WORABEE, », +, « 
WALABA,WENGE,WITLOOF, WOLFIA, » 

XENOPHON, XENOCRATE, XERXES, XYLANDER, * 

# + + + + 

XANTHI, XERTIGNY, XOCHICALCO, XOCHIMILCO, » 
XANCUS, XENOPUS, XERUS, XIPHODON, XIPHOPHORE 
XANTHORIA, XANTHOSOMA, XANTHO, », » 
YAMAMOTO, YOUNG, YVON, YUKAWA, YSAYE 

YEMEN, YOUGOSLAVIE,»,#, * 

YAKIMA, YAMAGATA, YAOUNDE, YDES, YOKOHAMA 
YACK,YETI, YOKOHAMA, YORKSHIRE-TERRIER, YOR 


YEUSE, YLANG-YLANG, YOHIMBEHE, YUCCA, * 
ZAPATA, ZAVATTA, ZEPPELIN, ZEUS, ZOLA 

ZAIRE, ZAMBIE, ZELANDE, ZIMBABWE, ZANZIBAR 
ZABRZE, ZACATECAS, ZACATECOLUCA, ZURICH, ZAG 


ZAMENIS,ZEBRE, ZEBU, ZIBELINE,ZICRONE 
ZACINTHE, ZAMIER,ZEEN,ZINNIA,ZOSTERE 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 150 : initialisation 


Après l'initialisation des nombres aléatoires, le programme 
place dans le tableau NS les 650 mots des DATA. 


Lignes 200 à 360 : le jeu 


Le nombre aléatoire contenu dans la variable L donne la 
lettre choisie par l'ordinateur. Le programme affiche les 
cinq types de mots à trouver. 


Dès qu'une touche est enfoncée (ligne 260), le programme 
affiche cinq mots du tableau N$. 


Lignes 500 à 1790 : données 


Il y a cinq mots par type pour vingt-six lettres. Quand 
certains mots manquent, ils sont remplacés par des 
astérisques. Vous pouvez bien sûr ajouter de nouveaux 
mots. 


indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
lettre choisie 
numéro du mot choisi 

$() liste des mots 


ELA — 
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MOTS 


168 


ACHES 


Après avoir donné une liste de mots (de 5 à 15) de 

10 lettres maximum, votre ordinateur affiche une grille de 
16 lettres sur 16, et à droite de l'écran la liste des mots. 
Les mots sélectionnés se trouvent parmi les autres 
caractères. Vous pouvez les lire à l'endroit (ordinateur) ou 
a l'envers (ruetanidro) mais non mélangés. 

Is peuvent avoir pris diverses directions, comme le 
montre le schéma suivant pour le mot MICRO : 


0 0 0 
R R R 
C C C 
[|] 

M M M 
ORCIM MICRO 
M MM 
FU | | 
C C C 
R R R 
0 0 0 


Votre ordinateur étant très patient, vous pourrez rester 
autant de temps que vous voudrez à chercher les mots 
cachés. Il vous suffira d'appuyer sur ENTER pour obtenir 
la Solution (les lettres qui composent les mots deviennent 
rouges). 
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19 REM MOTS CACHES 

29 REM ---------- 
30 MODE 1:INK 8@,1:INK 1,24:INK 2,6:PAPER 8:PEN 1:-B 
ORDER 1 

49 RANDOMIZE TIME 

50 DIM M$(15),G$(20) 

69 B$=" 

70 FOR I=1 TO 28:G$(I)=B$S:NEXT I 

80 INPUT'NOMBRE DE MOTS":NM 

90 IF NM<5 OR NM>15 THEN 80 

109 FOR I=1 TO NM 

118 PRINT"MOT";I;:INPUT MS(I) 

120 IF LEN(M$S(I))>12 THEN 110 

1306 NEXT I 

148 FOR I=1 TO NM 

150 S=INT(RND+0.5)#-1:1IF S=0 THEN S=1 

160 D=INT(RND=#4)+1 

1/70 X=INT(RND»*20)+1 

180 Y=INT(RND*290)+1 

199 L=-LEN(MS$S(I)) 

208 ON D GOTO 360,400,500,7/700 

289 REM ------------------------------- 
290 REM HORIZONTAL 

300 P=X+((L-1)#S):IF P<1 OR P>20 THEN 150 
310 IF P>X THEN A=X:GO0OT0 330 

320 A=P 

330 IF MIDS(GS(Y),A,L)<>LEFTS(BS,L) THEN 150 
340 C=1:FOR J=X TO P STEP S:GS$S(Y)}=LEFTS(GS(Y),J-1) 
+MIDS(MS(I),C, L)+RIGHTS (GS (Y). 20-J) 

358 C=C+1: NEXT 

360 GOTO 716 

380 REM ------------------------------- 
390 REM VERTICAL 

400 P=Y+((L-1)#S):IF P<1 OR P>20 THEN 150 
419 FOR J=Y TO P STEP S 

426 IF MIDS(GS(J),X,1)<>" " THEN 150 

430 NEXT J 

449 C=1:FOR J=Y TO P STEP S:GS$(J)=LEFTS(GS(J9),X-1) 
+MIDS(MS(I),C,1)+RIGHTS(GS(J),20-X) 

450 C=C+1:NEXT J 

468 GOTO 718 

489 REM ------------------------------- 
490 REM HAUT 

598 Z=-1 

519 P=X+((L-1)#S):1F P<1 OR P>208 THEN 150 
520 IF Y+Læ#/7<1 OR Y+Lx/>20 THEN 150 

530 C=Y:A=1-FOR J=X TO P STEP S 

540 IF MID$S(G$S(C),J,1)<>" " THEN 150 

550 C=C+/:A=A+1:NEXT DJ 

560 C=Y:A=1-FOR J=X TO P STEP S 

570 GS(C)=LEFTS(GS(C), J-1)+MIDS(MS(I),A,1)+RIGHTS( 
G$(C),20-J) 

580 C=C+7:A=A+I1-NEXT J 
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590 GOTO 718 


684 REM ---------------__-_-____----- 
690 REM BAS 

708 Z=1:G0OT0 518 

718 NEXT I 

784 REM -------------------- 
798 REM EDITION DE LA GRILLE 

8008 CLS 


810 FOR I=1 TO 28 

820 FOR J=1 TO 26 

830 CS=MIDS(GS(I),J,1):1F C$=" " THEN PRINT CHRS(R 
ND*25+65);:GOT0 850 

840 PRINT C$; 

850 NEXT J 

860 IF I<=NM THEN PRINT" “.MS(I); 

870 PRINT:NEXT I 

889 PRINT: PRINT"APPUYER SUR ‘'ENTER' POUR LA SOLUTI 


ON"; 
890 IF INKEYS<>CHRS(13) THEN 898 
980 PEN 2 


919 FOR I=1 TO 20 

920 FOR J=1 TO 20 

930 IF MIDS(G$(I),J,1)<>" “ THEN LOCATE J,I:PRINT 
MIDS(GS(I),),1) 

948 NEXT J,I | 

950 PEN 1:LOCATE 1,22:PRINT"APPUYER SUR ’ENTER' PO 
UR UN AUTRE JEU": 

968 IF INKEYS<>CHRS(13) THEN 960 


970 RUN 
LISTE | À position de début des mots dans la grille G$ 
AS dernière touche enfoncée 
DES VARIABLES : | ç pointeur des caractères dans les mots cachés 
C$ caractère à afficher 
D choix du sens d'écriture : horizontal, vertical 
ou diagonal 
G$() grille contenant les mots cachés 
| indice de boucle FOR/NEXT 
J indice de boucle FOR/NEXT 
L longueur des mots 
MS$() mots choisis 
NM nombre de mots 
P position des mots cachés dans la grille G$() 
S sens d'écriture des mots 
X et Y coordonnées d'un caractère dans la grille 
G$() 
Z Z=1 pour la diagonale vers le bas, Z=—1 


pour la diagonale vers le haut 
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PROGRAMME 





Lignes 30 à 200 : initialisation 


On saisit le nombre de mots au clavier. || doit être compris 
entre 5 et 15 (ligne 90). 


Le nombre aléatoire D donne la direction dans laquelle les 
mots seront écrits dans la grille, la variable S en donnant le 
sens et X et YŸ le point de départ. 


Lignes 300 à 710 : horizontale, verticale et diagonale 
(haut et bas) 


Les nombres aléatoires X et Y désignant l'emplacement du 
premier caractère à placer dans la grille, on calcule le 
pointeur P en tenant compte de la longueur et du sens 
d'écriture (variables L et S). 


On place chaque caractère du mot M${) dans les cases 
correspondantes du tableau G$(). 
Lignes 800 à 970 : résultats 


On affiche sur l'écran la grille G$() en remplaçant tous les 
espaces par des caractères aléatoires compris entre A et Z 


Dès que la touche ENTER est appuyée, on passe en revue 
le tableau G$ pour identifier sur l'écran les mots cachés. 


m1 tm 


Coirmzmres 
ZOdmzTe Nm Z 
: | 


LPO ee KZ LE ET 07 pot SE pres QE CET 
a 
tr 


Ÿ 
J 
x“ 
Y 
C 
U 
Ÿ 
KR 
E 
Li 
D 
E 
U 
F 
F 
L 
{L 
E 


OP 
RMRYKZXSE ZDNX 
OGMTJUFUMNXHSEPJFTULE 


APPUYER SUR ’ENTER' POUR LA SOLUTION 
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Ce jeu consiste à remettre dans l'ordre les chiffres 1 2 3 4 

56789oules lettres ABCDEFGH I que l'ordinateur 
INVERSION affiche au départ dans le désordre. 

Pour cela il propose d'inverser un nombre de chiffres que 

vous lui indiquerez à partir de la gauche de la série 

affichée. Il retourne alors tous les chiffres concernés (ou 

les lettres) et affiche la nouvelle suite obtenue. 


Le renversement se poursuit jusqu'à la remise en ordre 
des 9 chiffres ou lettres. Le programme affiche alors le 
nombre d'essais. 


A vous de trouver la meilleure tactique ! 


IEIENVERS LC 


E|e|r]< {afp }e/]n{zx 


LE EE AS 6 7 HF 7 


ME D 'IMUVUERSIOCNMS > 
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10 REM INVERSION 

29 REM ----------------------------- 
30 MODE 0:RANDOMIZE TIME 

49 T=INT(RND+2)+1 

DQ AS$S(1)="ABCDEFGHI" 

686 A$(2)="1234567/89" 

79 T$=A$S(T) 

180 REM ------------------------------- 
190 REM MELANGE 

2886 FOR I=1 TO 28 

214 V=INT(RND#9)+i 

229 

230 XS=MIDS(TS,V,1) 

240 TS- LÉFTSITS. V- 1)+MIDS(TS,W,1i) 
250 TS$=LEFTS(TS , W-1)+XS+RIGHIT NE $ 
268 NEXT I 

289 REM ------------------------------- 

2980 REM DESSIN DU JEU 

300 CLS:PRINT TAB(6); "INVERSION" 

314 FOR I=80 TO 592 STEP 64 

326 PLOT 16,248:DRAW I,248:DRAW I,216:DRAW 16,216: 
DRAW 16,248 

330 NEXT I 

340 FOR I=1 TO 9 

350 LOCATE I#2,14:PRINT MIDS(STRS(I),2) 

360 NEXT I 

370 FOR I=1 TO 9 

380 LOCATE Ix2,11:PRINT MIDS(TS,I,1) 

3908 NEXT I 

404 IF T$=AS(T) THEN 7/00 

489 REM ------------------------------- | 

494 REM SAISIE 

598 LOCATE 2,18:PRINT"'NB D'INVERSIONS ?"; 

510 NS=INKEYS:IF N$="" THEN 510 ELSE N=VAL(NS) 

520 IF N<2 OR N>9 THEN 510 

530 FOR I=i TO N/2 

540 X$S=MIDS(TS,I,1) 

550 TS$=LEFTS(TS, [I-1)}+MIDS(TS$S,N-I+1,1)+RIGHTS(TS, 9- 
T'} 

560 TS$S=LEFTS(TS,N-I)+XS+RIGHTS(TS,8-N+I) 

570 NEXT I 

580 E=E+1 

599 G0OTO 379 

689 REM ------------------------------- 

690 REM FIN 

708 LOCATE 2,18:PRINT"VOUS AVEZ TROUVE ":PRINT TAB 
(4); "EN";:E; "ESSAIS" 

710 IF INKEYS<>CHRS(13) THEN 710 

720 RUN 


+ RIGHTS(TS, 9-V) 
9-W) 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 70 : initialisation 

Le tableau A$ donne les suites de lettres ou de chiffres 
utilisées dans le jeu. La variable T donne au hasard une de 
ces deux suites. 

Lignes 200 à 260 : mélange 


Le mélange est effectué en prenant deux des chiffres (ou 
lettres) au hasard dans T$ et en les inversant. En répétant 
20 fois ce processus on obtient une suite tout à fait dans le 
désordre. 


Lignes 300 à 400 : dessin du jeu 

Après le dessin du cadre, on utilise une boucle pour 
afficher les caractères contenus dans la variable T$. 
Lignes 500 à 590 : saisie 


On saisit par INKEYS le nombre d'’inversions à effectuer. 
On teste si le nombre donné est supérieur à t et inférieur à 
10 (ligne 520). 

La boucle FOR/NEXT en 530 effectue les permutations 
dans la variable TS. 


La ligne 580 incrémente le compteur d'essais E. 


Lignes 700 à 720 : fin de partie 


Dès que la variable T$ est égale à la suite initiale (tableau 
A$), on affiche le nombre d'essais avant de recommencer 
une nouvelle partie. 


A$ caractère saisi par INKEYS$ 

AS$() liste des caractères à inverser 

E nombre d'inversions 

| indice de boucle FOR/NEXT 

fl valeur numérique de N$ 

NS nombre d’inversions à effectuer 
T type de liste (chiffres ou lettres) 
T$ liste des caractères à inverser 


V,WetX$ utilisées pour le mélange 
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JEU DU MORSE 





Entraînez-vous au morse tout en vous amusant. 
L'ordinateur va vous donner en code morse un mot parmi 
les 300 que contient le programme. À vous de le découvrir 
en l'écoutant. 


Si le mot que vous proposez n'est pas le bon, Amstrad 
vous donnera la solution. |! suffit d'appuyer Sur ENTER 
pour obtenir une nouvelle proposition. 


JEU DU MORSE 


QUEL EST CE MOT 97 PENDRE 


NOMNI C'EST RENDRE 
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109 REM MORSE 

20 REM ---------- > 

30 MODE 1:INK 0,13:INK 1,0:PAPER @:PEN 1:BORDER 13 
48 DEFINT A-Z 

50 DIM M$(300) 

60 RANDOMIZE TIME 

70 FOR I=1 TO 300 

89 READ M$(I) 


90 
7e es Tu ue .__… so. 


| 

190 REM LE JEU 

200 M=INT(RND*300)+1 

219 CLS:LOCATE 14,1:PRINT"JEU DU MORSE" 

220 LOCATE 11,11:PRINT"ECOUTEZ CE MOT ..." 

230 FOR I=1 TO 6 

240 P= 1+(ASC(MIDS (MS (M), 1,1))-65})#4 

250 FOR J=P 

260 IF "LS (MS, 3. Le “ THEN 330 

270 IF MIDS(M$,J,1}="." THEN 300 

280 SOUND 1,63,80,15 

298 GOTO 318 

300 SOUND 1,63,20,15 

318 WHILE SQ(1})>127:WEND 

320 FOR K=1 TO 308: NEXT 

330 NEXT 

34@ FOR K=1 TO 1808: NEXT 

350 NEXT 

360 CLS:LOCATE 14,1:PRINT"JEU DU MORSE" 

370 LOCATE 1,11:INPUT"QUEL EST CE MOT ",Z$ 

380 PRINT: PRINT 

390 IF ZS=MS(M) THEN PRINT"OUI! C'EST ";Z$ ELSE PR 
INT'NON! C'EST ":MS(M) 

400 IF INKEYS<>CHRS(13) THEN 400 

410 GOTO 200 

488 REM -----------------_ 

490 REM LES MOTS 

500 DATA ABAQUE, ABBAYE, ABIMER, ABJECT, ABOYER, ABSENT 
516 DATA ABSIDE, ABUSER, ACABIT, ACACIA, ACAJOU, ACCENT 
520 DATA ACCORD, ACERBE, ACQUIT, ACTEUR, ACTION, ACTUEL 
530 DATA ACUITE, ADAGIO, ADORER, ADULER, ADULTE, AERIEN 
548 DATA AGACER, AGENCE, AGNEAU, AGREER, AIMANT, ALERTE 
550 DATA ALOYAU, AMADOU, AMANDE, ANANAS, ANEMIE, ANGINE 
568 DATA ANNEXE, ANODIN, APHONE, APLOMB, APPEAU, AUBURN 
570 DATA BADAUD, BALISE, BALZAN, BAROUF, BASSET, BATEAU 
580 DATA BAVARD, BECANE,BECTER,BELIER,BERGER,BETAIL 
598 DATA BIELLE,BIGLER, BLAGUE, BLEUET, BOHEME, BOUGIE 
600 DATA CABRER, CAGEOT, CALICE, CAMPER, CAPTER, CARDAN 
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610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
758 
760 
770 
780 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
908 
919 
920 
930 
940 
950 
968 
970 
988 
990 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CARMIN, CARTON, CASINO, CAVEAU, CENTON, CERCLE 
CHACUN, CHAPON, CHASTE ; CHEQUE ; CHOMER : CISEAU 
CLASSE, CLIENT, CLIQUE, COCHER, COMBLE ; CONDOR 
CONGRE, CONTRE, COPAIN, CORNET, CURARE. CURSIF 
DANGER, DEBILE, DECHET, DECOTE, DEDALE , DEESSE 
DELICE, DEMAIN, DEPART: DEPUIS, DESERT, DEVIER 
DEVOIR, DICTON, DINGUE, DIRECT, DIURNE ; DRAGUE 
ECORCE, ECRIRE, EDITER, ELEVER, EMPIRE, ENCLIN 
ENIGME, ESCALE, ESCROC, ESPRIT, ETABLE, EXPRES 
FACHER, FARINE, FAUCON, FELURE, FESTIN. FIGURE 
FLACON, FLAQUE, FLEUVE ; FORMAT. FOUINE. FRAISE 
FRAUDE, FRELON, FRIAND, FRISER. FUREUR, FURTIF 
GALANT, GATEAU, GAUFRE, GLAPIR, GOUJON. GOURDE 
HANCHE, HARGNE , HAUSSE; HARP IE : HUMIDE ; HUMOUR 
IGNARE, ILLICO, IMPACT, INDIGO, INEPTE, INERTE 
INFAME, INFINI, INTACT INTIME, IRONIE. IVOIRE 
JAMAIS, JAMBON, JOCKEY. JONQUE | JOVIAL . JUJUBE 
KARATE, KERMES, KIMONO, KIRSCH. KLAXON. KOPECK 
LABEUR, LABOUR, LACUNE : LANGUE, LIASSE.LICITE 
LIEVRE,LIMITE,LITIGE,LIVIDE, LOUCHE, LUSTRE 
MACHER, MADERE, MAFFIA, MALICE ; MANDAT : MANGUE 
MANIOC, MARCHE ; MARRON, MASQUE ; MEDIUM, MEDUSE 
MEMBRE, MERLIN, MIETTE, MIOCHE, MOTEUR . MOUTON 
NARINE, NECTAR, NOMBRE; NOTICE , NOUGAT : NUANCE 
OCCASE, OCTAVE, OFFICE, ORACLE. OTARIE, OUVRIR 
PAELLA, PAPAYE, PAPIER, PAREIL. PARLER. PATATE 
PATRIE, PATRON, PAUMER! PAYSAN: PEIGNE, PELOTE 
PEPITE, PERCHE, PESTER, PIAULE , PILULE. PLANTE 
POIGNE, POISON, POPOTE, POUPEE. PRETER, PUZZLE 
QUARTZ, QUATRE, QUICHE QUILLE, QUINTE, QUITTE 
RACINE, RADEAU, RAGOUT, RAISIN, RAMURE. RAPHIA 
RAVIER, REGARD, RELIER, RENDRE RIFIFI. RUSTRE 
SAFRAN, SALAMI, SAPEUR, SAVOIR. SCRIPT. SEIGLE 
SHERIF, SINGER, SIRENE, SOLEIL, SOUPIR. SUIVRE 
TANDEM, TAPAGE, TAQUIN, TENACE, TESSON. TIMBRE 
TOPAZE, TOUPIE, TRAHIR. TRICOT, TRIPLE. TULIPE 
ULCERE, ULTIME, UNIQUE, URBAIN, URGENT UTOPIE 
VALIDE, VANTER, VESTON. VIVIER. VOISIN. VOLUME 
WAPITI, WHISKY, YAOURT: ZENITH. ZIGZAG, ZOUAVE 
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PROGRAMME Lignes 30 à 110 : initialisation 
On place dans M$ la liste de codes morse pour tout 
l'alphabet. Chaque code doit prendre quatre caractères : 
des blancs sont ajoutés pour les codes ne comprenant 
qu'un, deux ou trois points ou tirets. La ligne 60 initialise 
les nombres aléatoires. La boucle des lignes 70 à 90 place 
dans le tableau M$ les 300 mots des DATA des lignes 500 
à 990. 


Lignes 200 à 410 : le jeu 


La variable M (nombre aléatoire) pointe le mot que l’on 
doit trouver. 


On édite en code morse par des instructions SOUND les 
caractères contenus dans M$(M). Chaque caractère est 
pris séparément (boucle |) et retranscrit en morse (boucle 
Je 


La ligne 370 saisit la réponse du joueur. Si sa solution est 
incorrecte, la ligne 390 affiche le mot juste. 


Lignes 500 à 990 : les mots 


Si VOUS avez déjà tapé le programme « Anagrammes », 
vous pouvez réutiliser les DATA des lignes 500 à 990 en 
supprimant les lignes 30 à 340. 


indice de boucle FOR/NEXT 
indice de boucle FOR/NEXT 
numéro du mot choisi au hasard 
$ liste des codes morse 
M$ ) liste des mots 
P pointeur de liste des codes morse 
Z$ réponse du joueur 


LISTE 
DES VARIABLES : 


SSs—-— 
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SECRET 


Ce jeu consiste à chercher un nombre secret que 
l'ordinateur a choisi et qui est compris entre 1 et 99. A 
Chaque solution proposée, le programme répond par un 
des messages « TROP PETIT » ou « TROP GRAND » par 
rapport au nombre à trouver. 

La première difficulté du jeu est la suivante : votre 
proposition doit être le résultat d’une opération (exemple : 
4 X 5 = 20 nombre que vous proposez). 

Vous devez débuter avec deux des neuf chiffres de 1 à 9 
que vous pouvez multiplier, diviser, additionner ou 
soustraire. Les opérateurs restent pour tout le jeu les 
chiffres compris de 1 à 9 ; par contre, vous devez vous 
servir du résultat de votre première opération pour 
effectuer la deuxième, puis du résultat de la deuxième pour 
effectuer la troisième. 

Mais la deuxième difficulté du jeu est l'interdiction 
d'utiliser 2 fois le même chiffre comme opérateur. 


Exemple 

1“ chiffre : 4 

1% coup : 4 x 5 = 20 « TROP GRAND ». 48&5 ne peuvent 
être rejoués. 


2° coup : 20 + 2 = 10 « TROP PETIT» . 4,5&2 ne 
peuvent être rejoués. 

3” coup : 10 + 2 = 12 « IMPOSSIBLE ». 2 a déjà été 
joué. 

4 coup : 10 + 7 = 17 « GAGNE EN 3 COUPS ». 

Attention, vous n’avez droit qu’à 8 essais pour gagner ! 
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19 REM SUPER NB SECRET 
DR 
36 FOR I=1 TO 9:A(I)=1:NEXT I 

48 RANDOMIZE TIME 

59 N=INT(RND*99)+1 

68 MODE 1:PRINT TAB(11);"SUPER NOMBRE SECRET":PRIN 
T: PRINT: PRINT 

70 PRINT "IL VOUS RESTE: ":PRINT 

80 FOR I=1 TO 9 

98 IF A(I)=1 THEN PRINT I, 

108 NEXT I 

1106 PRINT:PRINT 
RE 
199 REM LE JEU 

200 IF R>@ THEN 240 

216 INPUT"PREMIER CHIFFRE":R 

22@ IF R<1 OR R>9 THEN 210 

230 A(R)=0:GOTO 508 

246 PRINT"RESULTAT DE L'OPERATION:";R:PRINT 
250 INPUT"OPERATION";0$ 

268 S=VAL(MID$(0$,2)) 

270 IF S<1 OR S>9 THEN 250 

280 IF A(S)=0 THEN 250 

299 OS=LEFTS(0$,1) 

300 IF O$=""" THEN 370 

318 IF O$="+" THEN 390 

320 IF O$="-" THEN 410 

330 IF O$<>"/" THEN 60 

340 IF R/S<1 THEN 60 

350 IF INT(R/S)CR/S THEN 60 

368 R=R/S:GO0TO 508 

370 IF R+*S>99 THEN 68 

380 R=R*S: GOTO 508 

398 IF R+S>99 THEN 60 

408 R=R+S:GOTO 500 

418 IF R-S<1 THEN 60 

428 R=R-S 

DO RE 
490 REM RESULTAT 

590 PRINT: PRINT'RESULTAT:";R:PRINT 

510 IF R=N THEN 700 

520 IF R<N THEN PRINT"'TROP PETIT" 

530 IF RON THEN PRINT"TROP GRAND" 

540 IF INKEY5="" THEN 540 

558 C=C+1:A(S)=0 

568 IF C<9 THEN 60 
RE 
598 REM PERDU 

680 PRINT:PRINT'DOMMAGE ! C'ETAIT":N 
618 GOTO 716 
OR 
690 REM GAGNE 

709 PRINT:PRINT'BRAVO! C'ETAIT":N 

710 IF INKEYS<>CHRS(13) THEN 718 

720 RUN 
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PROGRAMME 


Lignes 30 à 110 : initialisation 

La ligne 30 remplit le tableau A(1) à À (9) avec le nombre 1 
pour connaître les chiffres déjà employés. 

La ligne 50 place dans la variable N le nombre secret 
(nombre aléatoire). 


Les lignes 80 à 110 affichent le tableau A(1) à A(9) pour 
les chiffres restants. 


Lignes 200 à 420 : le jeu 


Dans le cas où aucune opération n’a été effectuée, on saisit 
au clavier le premier chiffre. 


Sinon on affiche le résultat de la dernière solution 
proposée, puis on demande l'opération à effectuer et le 
chiffre à utiliser. La ligne 280 vérifie si vous trichez et 
renvoie dans ce cas à la saisie de la ligne 250. 


Les lignes 290 à 420 recherchent le signe que vous voulez 
utiliser et effectuent les calculs. 


Lignes 500 à 720 : résultats 

Les lignes 510 à 530 comparent votre solution au nombre 
secret et renvoient au message correspondant. Si vous 
avez eu de la chance, la ligne 700 vous félicitera, sinon un 
message « TROP PETIT » ou « TROP GRAND » 
apparaîtra. 

La ligne 550 incrémente le compteur de jeu (variable C) et 
remet à O le chiffre que vous avez utilisé (dans le tableau 
A() }. 

SI C=9, on affiche la solution (variable N) puisqu'il ne 
reste plus de chiffre utilisable. 
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LISTE AU 
DES VARIABLES : | c 
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chiffres restants 

caractère saisi par INKEYS 
nombre d'essais 

indice de boucle FOR/NEXT 

le nombre secret 

opération choisie 

résultat de la dernière opération 
Chiffre choisi 


SUPER NOMBRE SECRET 


IL UGS RESIE: 


i 4 5 
3 ss 


Ë 


RESULTAT DE L'OFERATION: 4 
GPEHATIONT +5 

RESULTAT: 6% 

TROP SRAND 





Ni 
4 
à 


p 
É E 
9" PT 
ES NX 1 





? x: Cr EE 
ee RE 
TPE À 


As. 
. + 7 Ve s 


Poser son vaisseau sur une planète, pour qui est soumis 


DEBARQUEMENT aux dures lois de la pesanteur, n’est pas chose facile. 


IMMEDIAT La vitesse de débarquement peut être maîtrisée en brûlant 
dans les tuyères du vaisseau une certaine quantité de 
carburant. Trop de carburant vous fait remonter, pas assez 
descendre à des vitesses parfois vertigineuses. 


Surveillez bien votre altimètre, votre réservoir et bien sûr 
votre vitesse et c'est un débarquement en douceur. 

Mais attention aux arrivées « immédiates » à plus de 
cinq mètres par seconde ! 


CARBURANT “7 1e 
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10 REM DEBARQUEMENT IMMEDIAT 
REM 


30 SYMBOL AFTER 128 

40 SYMBOL 128,24,24,24,24,255,126,60,24 

50 SYMBOL 129, 24, 60, 126, 255, 24, 24, 24, 24 

60 MODE @:INK Q, 1: INK 1, 24: INK 2, 15: PAPER 6:PEN 1: 


70 A(1)=0:A(2)=200:A(3)=-50:A(4)=180: A(5)=80 

80 X(1)= Y(1s =8:X(2)=13:Y(2)=8:X(3)=4:Y(3)=13:X(4 
)=13:Y(4)=13:X(5)=4:Y(5)=18 

99 FOR I=1 TO 5:B(I)=A(I}-1:NEXT I 

18Q REM -----------"- 2 

190 REM AFFICHE LE JEU 

200 PRINT TAB(5);"DEBARQUEMENT":PRINT TAB(7):"IMME 

DIAT" 

210 FOR I=8 TO 168 STEP 80 

220 PLOT 56,310-I,1:DRAW 260,310-I:DRAW 260,270-I: 

DRAW 56,270-I:DRAW 56,310-I:PLOT 376,310-I:DRAW 56 

0,310-I:DRAW 560,270-I:DRAW 376,270-I:DRAW 376,310 
-] 

230 NEXT 

248 LOCATE 3,6:PRINT "TFMPS";TAB(12);: 

250 LOCATE 2,11:PRINT "VITESSE"; TAB(12): "VITESSE" 

260 LOCATE 2,16:PRINT "CARBURANT"; TAB(14): "SENS" 

RE 

290 REM AFFICHE LES DONNEES 

300 PEN 2 

310 LOCATE 14,18:1F A(3)<0 THEN PRINT CHRS(128)CHR 

S(128)CHRS(128) ELSE PRINT CHRS(129)CHRS(129)CHRS ( 
129) 

320 B=0 

330 FOR I=1 TO 5 

340 IF B(I)=INT(A(I)) OR (I=2 AND B(I)<=-0) THEN B- 

B+1:GOTO 370 

350 IF B(I)<INT(A(I)) THEN B(I)=B(I)+1 ELSE B(I)=B 
Host 

360 LOCATE X(I),Y(I):PRINT ABS(B(I)) 

370 NEXT I 

380 IF B<5 THEN 320 

390 IF B(2)<=0 THEN 700 

400 PEN 1 

418 IF A(5)=0 THEN R=0:GOTO 560 

DD RE 

490 REM CALCULS 

500 LOCATE 4,24:PRINT CHRS(18);:INPUT"CARBURANT".R 
$ 

519 R=VAL(RS) 

520 IF R<A OR R>A(5) THEN 508 

530 IF R>25 THEN R=25 

54@ A(5)=A(5)-R 


"ALTITUDE" 
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559 IF A(5)=0 THEN LOCATE 3,24:PRINT CHR$S(18);"RES 
ERVOIR VIDE" 

560 A(1)=A(1)+1 

570 A(2)=A(2)+A(3)-((5-R)/2) 

580 A(3)=A(3)-(5-R 

599 A(4)=ABS(A(3)*3.6) 

609 GOTO 300 

OO RE 

698 REM FIN DE PARTIE 

700 IF A(3)<-5 THEN 800 

710 LOCATE 1,24:PRINT"DEBARQUEMENT REUSSI" 

720 IF INKEYS<>CHRS(13) THEN 720 

736 RUN 

D RE 

790 REM CRASH... 

808 CLS 

818 FOR J=1 TO @ STEP -1 

820 FOR 1=308@ TO 120 STEP -20 

830 PLOT I,5@0-I,J:DRAW 620-I,5@0-I:DRAW 62@-I,I-1 
2@:DRAW I,1-120:DRAW I,500-] 

848 BORDER I MOD 27 

850 NEXT I 

868 FOR K=1 TO 18080:NEXT Kk 

870 NEXT J 

880 PEN 1:LOCATE 3,13:PRINT"'CRASH A"; ABS(A(3)):"M/ 
Fa 

890 IF INKEYS<>CHRS(13) THEN 898 

990 RUN 
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PROGRAMME 


LISTE 


DES VARIABLES : 


186 


Lignes 30 à 260 : initialisation 

Après la définition des caractères graphiques, on initialise 
les variables du tableau de bord (temps, altitude, vitesse et 
carburant). 


Les tableaux X et Ÿ donnent les coordonnées de ces 
variables sur l'écran. 


Les lignes 200 à 260 affichent le dessin du tableau de bord 
Sur l'écran. 


Lignes 300 à 410 : affichage des données 


En fonction de la vitesse (positive ou négative par rapport 
au Sol), on affiche des flèches vers le bas ou vers le haut 
comme sens de déplacement (ligne 300). 


On affiche à l’aide des tableaux X et Y toutes les 
coordonnées du tableau de bord en partant du tableau B 
(anciennes valeurs) pour arriver à celles du tableau A 
(nouvelles valeurs). 


Si l'altitude ( B(2) ) passe par la valeur 0 pendant la mise à 
jour, on va directement à la ligne 700 pour la fin de la 
partie. 


Dans le cas où il ne reste plus de carburant ( A(5)=0 ), on 
Saute la ligne 560 pour les calculs sans saisir une quantité 
de carburant. 


Lignes 500 à 600 : calculs 

Apres la saisie du carburant, on calcule toutes les 
nouvelles valeurs du tableau de bord. 

Si on a utilisé le reste du carburant on affiche en bas de 
l'écran le message « réservoir vide ». 


A(1) temps écoulé 

A(2) altitude 

A(3) vitesse en mètres/seconde 

A(4) vitesse en kilomètres/heure 

A(5) carburant restant 

B nombre de valeurs du tableau B identiques au 
tableau A 


B(1) à B(5) identique au tableau A mais pour les 

anciennes valeurs 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

réponse du joueur 

valeur numérique de R$ 

X()etY() coordonnées sur l'écran des valeurs du 
tableau de bord 


JDA — 
LS 
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CHAPITRE Ill : 
JEUX DE HASARD 





JACK-POT 





Voilà un jeu qui peut paraître tout d’abord passif puisque le 
joueur intervient très peu ; mais attention pour le joueur 
acharné : il risque d'en perdre le sommeil ! 


Après avoir tapé RUN, le jack-pot se dessine avec les 
combinaisons gagnantes. 


Vous appuyez sur n'importe quelle touche et c’est parti. 
Quand les symboles s’immobilisent, si vous n’avez rien 
gagné, votre capital se décrémente de 0,20 franc. I! suffit 
d'appuyer à nouveau sur n'importe quelle touche pour 
relancer le jeu. 


Quand une combinaison est gagnante, Votre gain s'affiche 
en bas du jack-pot et votre capital augmente d'autant. 


Patience, patience, ce jack-pot, digne de ses ancêtres, 
peut vous prendre beaucoup de temps... 


CAPITAL : 10.2 F 
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19 REM JACK-POT 

29 REM --------------------------- ----- 

30 SYMBOL AFTER 128: GOSUB 2000 

48 MODE 1:INK @0,1:INK 1,24:INK 2,6:INK 3,8:PAPER 9 
: PEN 1:GOSUB 3000 

50 C=10 

60 RANDOMIZE TIME 

180 REM ------------------------------ 

190 REM LE JEU 

280 FOR I=1 TO 3 

210 D(I)=INT(RND+*8) 

208 T(I)=INT(RND*15)+5 

238 NEXT I 

248 GOSUB 1008:GOSUR 1508 

250 FOR I=1 TO 3 

268 IF T(I)-Q0 THEN 324 

078 T(I}=T(I)-1 

280 D(I)=0(I)+1:IF D(I)>7 THEN D(I)=0 

298 Z=INT(RND#3)+1 

300 PEN Z:LOCATE 14+Ix3,])3:PRINT CHRS(128+D(I)#4)C 
HR$S(129+D(I1)#4) 

3104 LOCATE 14+I#3,14:PRINT CHRS(130+D(IT)*4)CHRS(13 
1+D(1})+*4) 

329 NEXT I 

330 IF T1) OR T(2) OR T(3) THEN 2580 

384 REM ---------- eee 

390 REM GAINS ? 

4004 C=INT((C-0.195)#14)/18:CAP=C 
418 D=0(1})}#100+D(2)#10+0(3) 

424 D1-=D(1)}#100+0(3) 

430 TF D=777 THEN C=C+20 

448 IF D=-666 THEN C=C+19 

450 IF N=444 THEN C=C+5 

460 TF D=SS$S THEN C=C+4 

470 IF D1=°/07 THEN C=C+s 

480 IF Di=iai THEN C=C+2 

490 IF 61-303 THEN C=C+] 

540 FF D1=7/707 THEN C=C+i 

510 PEN 2:LOCATE 24,25:PRINT C;"F  ‘: 
520 IF C>CAP THEN 600 

530 PRINT CHRS(7) 

548 IF INKEYS="" THEN 540 

559 IF C=0 THEN 800 

564 GOTO 248 

580 REM -------mmmmmmmmmmmmmm 
599 RKEM GAGNE 

608 FOR I=500 TO 58 STEP-5: SOUND 1,1,2:NEXT 
610 PEN 2:LOCATE 19,22:PRINT C-CAP 

620 IF INKEYS="" THEN 678 

634 LDCATE 19,22:PRINT " à 

644 GOT 2084 
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780 REM 


CR D D D (0 CS OR D CD D Re D OP ue Re us bu Qu D db GE «SD AUD QUE JR 


796 REM PERDU 


800 PAPER 6:PEN 1:LOCATE 1,15:PRINT"MERCI": 


OUR": PRINT"LES DIX": 


PRINT'FRANCS" 


810 LINE INPUT A$ 
8206 RUN 


988 REM 


= D CD ON NO UP NN UP AD D US SUP AD AU HU Re pt fie ut Me Es té Vie HER Que Qt me 


999 REM DESC. POIGNEE . 
FOR I=186 TO 17 

PAPER @:LOCATE 35,1:PRINT"  " 

PAPER 1:LOCATE 35,1+1:PRINT"  " 

LOCATE 35,1+2:PRINT"  " 


1000 
1619 
1020 
1038 
1040 
1050 
148% 
1496 
1500 
1510 


NEXT I 


PAPER O:RETURN 


REM 


+ 0 


= us DU AU AY UP UN AP (UD NU CD D ŒD UP MD (D  ud RE de it M CD ( ME 


REM MONT. POIGNEE 
FOR [I=17 TO 18 STEP -1 


PAPER @:LOCATE 35, 


I+2: PRINT" " 


";: PAPER @: PRINT" " 
PAPER 1:LOCATE 35,I+1:PRINT"  " 
LOCATE 35,I:PRINT"  " 


1520 
1530 
1540 
1550 
1980 
1998 
2600 
2810 
2828 
2030 
2040 
2850 
2060 
2070 
2080 
2098 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2198 
2200 
2210 
2220 
2230 
2240 
2250 
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NEXT I 


PAPER 8:RETURN 


REM 


= D D D 0 D D Mu Au AU MD NŒUD A HE CU UN AUD D UE CU D LR D (D 


REM GRAPHIQUES 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


128,1,3,7,15,31,63,127,255 
129,128,192,224,240,248,252,254,255 
130,255,127,63,31,15,7,3,1 
131,255,254,252, 248, 240,224,192,128 
132,56,124,254,254,255,255,255,255 
133,56,124,254,254,254,254, 254, 254 
134,127,127,63,31,15,7,3,1 
135,252,252,248,240,224,192,128,0 
136,1,3,7,15,15,15,7,51 
137,0,128,192,224,224, 224, 192,152 
138,121,253,255,253,121,51,7,15 
139,60,126,254,126,60,152,192,224 
140,1,3,7,15,31,63,63,63 
141,0,128,192,224,240, 248,248, 248 
142,63,63,31,13,1,3,7,15 

143,248, 248,240,96,06,128,192, 224 
144,0,0,12,30,63,127.127.63 
145,7,26,100,132,8,136,144,16 
146,30,12,0,0,0,0,0,0 
147,24,60,126,255,255,126,60, 24 
148,0,0,0,0,0,7,31,127 
149,0,7,24,44,206,199,131,129 
150,127,255,255,255,255,255, 127,62 
151,128,192,192,192,128,128,0,0 
152,63,96,192,135,140,152,248,152 
153,252,6,3,225,49,25,31,25 
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PRINT"P 


5: PAPER 1:PRINT 


2260 SYMBOL 154,24,48,96,192,255,1,3,3 

2270 SYMBOL 155,24,12,6,3,255, 128, 192,192 

2280 SYMBOL 156,0,127,127,0,115,82,74.123 

2290 SYMBOL 157,0,255,255,0, 222. 82.82 222 

2300 SYMBOL 158,74,74,122.0,127 127. 9, ô 

2310 SYMBOL 159,82,82,81,0,255,255,0, 

2320 RETURN 

298Q4 REM ---------- "2" 

2998 REM DESSIN DE LA MACHINE 

3000 FOR I=8 TO 3 

3016 READ A,B,C,D:A=A+128:B=B+128 

3020 PEN 2:PRINT CHRS(A)CHRS(A+1)" "CHRS(A)CHRS (A+ 
1)" "CHRS(A)CHRS(A+1 ); 

3030 PEN 3:PRINT TAB(28)CHRS(B)CHRS(B+1)" "CHRS 

(B)CHRS(B+1) 

3040 PEN 2:PRINT CHRS(A+2)CHRS(A+3)" "CHRS(A+2)CHR 


$(A+3)" "CHRS(A+2)CHR$S(A+3)" =";C; 

3050 PEN 3:PRINT TAB(28)CHRS(B+2)CHRS(B+3)" “CH 
RS(B+2)CHRS$S(B+3)" =".D. 

3060 NEXT I 

3070 PEN 1 


3080 PLOT 220,260:DRAW 420,260: DRAW 420,380: DRAW 2 

20,388: DRAW 220,260 

3090 PLOT 120,20: DRAW 520,20:DRAW 520, 260:DRAW 128 
,268:DRAW 120,20 

3109 PLOT 108.28: DRAW 540,20 

3110 PLOT 240,220:DRAW 396,220:DRAW 396,164:DRAW 2 

48,164:DRAW 240, 220 

3120 PLOT 292,22@:DRAW 292,164:PLOT 344,220: DRAW 3 

44,164 

3130 PLOT 358,330: DRAW 410,330: DRAW 390,308: DRAU 3 
70,300: DRAW 350,330 

3140 PEN 2:LOCATE 23,4:PRINT "?2@c" 

3150 PEN 1:LOCATE 16,5:PRINT "JACK" 

3160 PEN 3:LOCATE 17,6:PRINT "POT" 

3170 PLOT 520,95:DRAW 620,95:DRAW 620,60:DRAW 520, 

60:DRAW 520,95 

3180 GOSUB 1508 

3190 PAPER @:PEN 1:LOCATE 15,25:PRINT "CAPITAL: 
3200 PLOT 248,1@0:DRAW 400,188:DRAW 400,20: DRAU 7 
0,20: DRAW 240, 1@8:PLOT 260.80:DRAW 380,80: DRAW 380 
20: DRAW 260,20:DRAW 260.80 

3210 PLOT 180,180:DRAW 200,180:DRAW 200,20: DRAW 18 
0,20:DRAW 180,18@:PLOT 440 180:DRAW 460.180: DRAW 4 
60,20:NRAW 440,24: DRAW 448 180 

3220 RETURN 

3500 DATA 28,8,20,3,24,4,10,2,16,12,5,1,20,28.4,1 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 60 : initialisation 

L'appel du sous-programme en 2000 détermine les 
caractères graphiques, et celui en 3000 le dessin complet 
du jack-pot. 


Lignes 200 à 330 : le jeu 
Le jeu a besoin des deux tableaux suivants : 


M D) donne le symbole de départ à afficher. Les 
symboles suivants apparaissent dans l'ordre des 
caractères graphiques. 


B !() donne le temps, c'est-à-dire le nombre de symboles 
qui vont défiler sur la machine. 


Dès que ces deux tableaux sont définis, on manœuvre la 
poignée en utilisant les sous-programmes en 1000 et 1500 
(respectivement descente et montée), puis on affiche les 

3 Symboles à partir de D() pour un temps T{). 


Lignes 400 à 560 : gains ? 


On commence par décrémenter le capital C de 
20 centimes; puis on place dans CAP le capital restant. 


En additionnant D(1) à D(3), on obtient un chiffre qui sert 
de comparaison avec les solutions gagnantes (variable D). 
La variable D1 ne prend en considération que les deux 
extrémités de la combinaison. 


On compare D et D1 aux solutions gagnantes et on 
incrémente le capital (variable C). Quand C est supérieure à 
CAP on gagne quelque chose. On va alors à la ligne 600 
pour afficher le montant des gains ; sinon on retourne à un 
nouveau jeu. 


A, B combinaisons gagnantes 

C, D gains des combinaisons gagnantes 

C capital 

CAP capital avant totalisation des points 

D somme des combinaisons sorties 

D1 somme d'une partie des combinaisons 

D() signe à afficher 

| indice de boucle FOR/NEXT 

T() temps de défilement des symboles 

Z nombre aléatoire donnant la couleur des 
signes 
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MONTE-CARLO 


Voici un jeu de casino qui se joue avec trois dés. Chaque 
joueur (maximum neuf) doit miser sur une des 29 cases du 
tapis. Les jetons sont choisis à l’aide des flèches gauche et 
droite, la touche ENTER validant le choix quand celui-ci est 
définitif. 

C'est le banquier qui lance les dés et paye à chaque joueur 
un certain nombre de jetons en correspondance avec le 
tableau suivant : 


de | à VI (dés simples) : 

on gagne une fois la mise par dé identique. Si l’on joue IV 
et que deux des trois dés sont des quatre le banquier paye 
deux fois la mise. 

M (manque) : | 

on gagne une fois la mise si le total des trois dés est 
inférieur à 11. 

de 4 à 17 (somme des dés) : 

on gagne si la somme des trois dés est égale au chiffre 
joué. 

4 et 17 : 60 fois la mise 

5 et 16 : 30 fois la mise 

6 et 15 : 18 fois la mise 

7 et 14 : 12 fois la mise 

8et13: 8 fois la mise 

9a12: 6 fois la mise 

P (passe) : 

on gagne une fois la mise si le total des trois dés est 
Supérieur à 10. 

tous les brelans : 

on gagne 30 fois la mise si les trois dés sont identiques. 


les brelans : 


on gagne 180 fois la mise si les trois dés correspondent à 
la case jouée. 

Comme la partie se joue sur dix tirages, chaque joueur a 
un capital de 10 jetons dès le début. Le programme affiche 
les résultats en fin de partie. 
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18 REM MONTE CARLO 

RE 

30 CLS 

40 DIM X(29),Y(29),N$(29),G(29),M(29) 

59 INPUT"NOMBRE DE JOUEURS “;N 

60 IF N<1 OR N>9 THEN PRINT"'ENTRE 1 ET 9 !":GOTO 5 

0 

70 MODE 1:INK @,1:INK 1 ,24:INK 2,6:INK 3,15:PAPER 
O:PEN 1:RORDER 1 

80 TAG:DEG:SYMBOL AFTER 128 

98 RANDOMIZE TIME 


100 SYMBOL 128,0,0,0,24,24,0,0,0 

110 SYMBOL 129,0,24,24,0,0,24,24,0 

120 SYMBOL 130,96,96,0,24,24,0,6,6 

130 SYMBOL 131,102,102,0,0,0,0,102,182 

149 SYMBOL 132,102,102,0,24,24,0,102,102 

159 SYMBOL 133,102,102,0,182,102,0,102,102 

160 FOR I=1 TO 22:READ X(1),Y(I),N$(I),M(I):NEXT 
170 DATA 44,40,1,1,80,40,11,1,116,48,III,1,160,4@, 


IV,1,204,40,V,1,240,40,VI,1 

180 DATA 44,100,M,1,44,170,4,60,44,210,5,30,44,250 
_6,18,44,290,7,12 

190 DATA 50,330,8,8,76,364,9,6,116,384,10,6,164,38 
4,11,6,212,364,12,6,240,330,13,8 

260 DATA 244,290,14,12,244,250,15,18,244,210,16,38 
,244,170,17,60,244,100,P,1 

218 DATA 150,330,30,150,290,1806,150,250,180,150,21 
0,180,150,170,180,150,130,180,150,90,180 

22@ FOR I=23 TO 29:READ X(I),Y(I),M(I):NEXT 

230 FOR I=1 TO N:P(I)}=10:NEXT 

OO RE 

494 REM DESSIN DU JEU 

590 CLG 

510 FOR I=0 TO 180 STEP @.9:MOVE 160,308:PLOTR 120 
*COS(1), 99*SIN(I),1:NEXT:PLOT 40,300:DRAWR 240,0:D 
RAWR @,-280:DRAWR -240,@:DRAWR 8,280 

520 FOR I=@ TO 180:MOVE 160,300:PLOTR 8@*COS(I),59 
#SIN(I):NEXT:PLOT 80,308:DRAWR 160,0:DRAWR @,-288: 
DRAWR -1680,0:DRAUWR @,280 

530 PLOT 160,399:DRAW 160,368:PLOT 216,386:DRAW 19 
6,352:PLOT 104,386:DRAW 124,352 

54@ PLOT 258,356:DRAW 228, 330:PLOT 62,356:DRAW 92, 
330 

550 FOR I=120 TO 208 STEP 40 

568 PLOT I,68:DRAW 1,20 

570 NEXT 

580 FOR I=268 TO 60 STEP -40 

590 IF I<>180 THEN PLOT 40,I:DRAW 280,I ELSE PLOT 

80,I:DRAW 240,1 

608 NEXT:PLOT 0,408,3 

619 FOR I=1 TO 22 
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620 FOR J=1 TO LEN(NS(I)) 

630 MOVE X(1)-8+12*J,Y(I):PRINT MIDS(NS(I),J,1): 
648 NEXT:NEXT 

650 FOR I=1 TO 6:FOR J=1 TO 3 

660 MOVE 74+Jx49,328-I«40:PRINT CHR$(127+1I); 

670 PLOT 70+0*40,332-I*40,1:DRAWR 22,8: DRAWR 0, -22 
: DRAUR -22,8:DRAUR 0,22:PLOT 120,68:DRAW 120, 26:PL 
OT 0,400,3 

680 NEXT:NEXT 

690 MOVE 134,340: PRINT"TOUS";:MOVE 110,320: PRINT'"B 
RELANS": 

700 MOVE 368,380: PRINT"JETONS"; 

710 FOR I=0 TO 88 STEP 40 

720 PLOT 360+I,60:DRAWR 22,@:DRAWR @,-22:DRAUWR -22 
,2:DRAUR 8,22 

730 NEXT 

880 REM ------- "2 

898 REM LE JEU 

909 FOR K=1 TO 10 

919 ERASE G:DIM G(29) 

920 FOR I=0 TO 272 STFP 16:PLOT 520,344-J:PRINT" 

“;: NEXT:PLOT 0,400, 2 

930 FOR I=1 TO N 

940 MOVE 300,378-1*30:PRINT "JOUEUR"; RIGHTS(STRS(I 
Mie dci. 

959 NEXT:PLOT 0,400,1 

960 FOR I=1 TO N 

970 P=1 

988 MOVE 520,370-I*30: PRINT CHR$(243);" ":: MOVE 
550,370-Ix30 

990 IF P<23 THEN PRINT NS(P); ELSE IF P>23 THEN PR 
INT CHRS(104+P);:MOVE 546,374-Ix30:DRAWR 22,0, 1:DR 

AUR @,-22:DRAWR -22,0:DRAUR 0,22 ELSE PRINT'TB"- 
1000 AS=INKEYS:IF A$="" THEN 1000 ELSE IF AS=CHRS( 
13) THEN 1050 

1010 IF AS=CHRS(242) AND P>1 THEN P=P-1 

1020 IF AS=CHR$S(243) AND P<29 THEN P=P+1 

1030 MOVE 546,374-Ix30:DRAWR 22,0,0:DRAUR @,-22:DR 

AWR -22,0:DRAWR @,22:PLOT 160,380. 1 

1948 GOTO 980 

1054 J(I)=P 

1068 NEXT 

1070 FOR I=1 TO RND*20+20 

1080 FOR J=1 TO 3 

1099 D(J)=INT(RND+6)+1 

1100 MOVE 324+9*40, 56: PRINT CHRS(127+D(J)): 

1118 NEXT J 

1120 NEXT I 

1130 D=D(1)+D(2)+D(3) 

1140 MOVE 340,28: PRINT'TOTAL:";D 

1150 FOR I=1 TO 6:FOR J=1 TO 3 


Ù 
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1160 
1170 
1180 
1198 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
ELSE 
1288 
1298 
1300 
1480 
1490 
1500 
1510 
1520 
1530 


IF D(J)=I THEN G(I)=G(1)+1 

NEXT: NEXT 

IF D<11 THEN G(7)=1 

FOR I=8 TO 21 

IF D=1-4 THEN G(I1)=G(I)+1 

NEXT 

IF D>10 THEN G(22)=1 

IF D(1)<>D(2) OR D(2)<>D(3) THEN 1260 
G(23)=1 

G(D(1)+23)- 

FOR I=1 TO N 

IF G(J(1))<>0 THEN P(I)=P(I)+G(J(I))*M(J(1)) 
P(I)=P(I)-1 

NEXT 

IF INKEYS<>CHRS(13) THEN 1298 

NEXT 

RÉMI = e  — Eee 
REM RESULTATS 

MODE 1 

PRINT TAB(16); "RESULTATS" 

FOR I=1 TO N 

LOCATE 8,4+I#%2:PRINT "JOUEUR";1;": ";USING"## 


##";:P(I);: PRINT " JETON(S)" 


1540 
1550 
1568 
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NEXT 
IF INKEYS<>CHR$S(13) THEN 1550 
RUN 
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PROGRAMME 


Lignes 30 à 230 : initialisation 

Après la saisie du nombre de joueurs, le programme 
initialise les nombres aléatoires (ligne 90). 

Les lignes 100 à 150 initialisent les graphiques avec le 
dessin des six faces d’un dé. 


Les lignes 160 à 230 initialisent les tableaux X, Y, N$, Met 
P (voir liste des variables). 


Lignes 500 à 730 : dessin du jeu 


On commence par tracer le tapis (lignes 500 à 600), puis 
on affiche le nom des vingt-deux premières cases (lignes 
610 à 640), et pour finir on place les dix-huit dés avec les 
graphiques correspondants (650 à 680). 


Lignes 900 à 1300 : le jeu 


La boucle des lignes 930 à 950 affiche le nombre de jetons 
restant à chaque joueur. Les anciennes valeurs sont 
effacées par la ligne 920. C'est la boucle des lignes 960 à 
1060 qui saisit le choix de chaque joueur (tableau J). 


Les dés sont affichés par la boucle des lignes 1070 à 1120 
en fonction des nombres aléatoires contenus dans le 
tableau D. 

Les lignes 1130 à 1250 recherchent les cases gagnantes. 
Quand c'est le cas, on incrémente le tableau G. 

Il ne reste plus qu'à comparer le tableau G avec celui des 
joueurs, le tableau J (lignes 1260 à 1280). 
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AS dernière touche appuyée 
Li STE D somme des trois dés 


DES VARIABLES : ! D() valeur des trois dés 
G() cases gagnantes 
| indice de boucle FOR/NEXT 
J indice de boucle FOR/NEXT 
J() choix des joueurs. 
K indice de boucle FOR/NEXT 
M() multiplicateur pour les gains 
nombre de joueurs 
NS$() nom des cases 
P numéro de la case choisie par le joueur 
P() nombre de jetons restant à chaque joueur 


X()etY() coordonnées des cases sur l'écran 


Sd 
AG [AL JETONS 


ee 185, 
- TOUS “7 JOUEUR 1: 16 
__\ JOUEUR 2: 19 
JOUEUR 3: 16 
JOUEUR 4: 168 
JOUEUR 5: 160 
| JOUEUR 6: 19 
JOUEUR 7: 16 
JOUEUR 8: 16 
P | JQOUEUR 9: 19 


TOTAL: 13 
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PSS 


BACCARA 


Si vous rêvez de l'ambiance feutrée mais exaltante des 
casinos, entrez dans le jeu et osez manipuler des sommes 
fabuleuses. 


Un crédit de 10000 francs vous est attribué au début de la 
partie. La banque — votre adversaire — tire quatre cartes 
d'un sabot composé de 8 jeux de cinquante-deux cartes. 
Toutes les cartes conservent leurs valeurs nominales de 
l'as (1) au neuf ; les figures et le dix ne valent rien. Pour 
obtenir la valeur totale d’un jeu, on additionne les valeurs 
de chaque carte en ne retenant que le chiffre des unités. 


À chaque donne, l'ordinateur affiche les cartes : de même, 
tout au long du jeu, il indique en bas de l'écran les 
mouvements en cours ainsi que votre mise et Vos gains. 
La banque donne tout d’abord au ponte deux des quatre 
cartes et garde les deux autres pour lui. 

Vous regardez vos cartes et vous vous trouvez alors devant 
quatre possibilités pour parler : 

M vous avez 8 ou 9 : c'est-à-dire une main naturelle : 
c'est au banquier de parler, 

M Vous avez 6 où 7 : vous ne prenez pas d'autre carte, 

M Vous avez 5 : vous choisissez ou non de prendre une 
autre Carte, 


M vous avez entre 0 et 4 : vous prenez obligatoirement 
une autre carte. 


Seule la troisième carte que vous aurez pu tirer est visible 
du banquier. 


Puis le banquier parle. Si vous avez 8 ou 9, il faut 
comparer les jeux. Sinon le banquier a le choix de prendre 
où non une carte (choix déterminé par un tableau dans le 
programme). À ce moment-là, toutes les cartes sont 
retournées ; le joueur le plus près de 9 gagne la partie. 


En tapant sur n'importe quelle touche vous obtenez vos 
gains et VOus pouvez miser pour un autre tour. 


Le jeu reprend jusqu’à disparition de tout votre capital. 
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19 REM BACCARA 
OR 

36 SYMBOL AFTER 128:GOSUB 1800 

40 MODE 1:INK @,13:INK 1,8:INK 2,6:INK 3,8:PAPER @ 
: PEN 1:BORDER 13 

56 DIM J(13,4),S(6,2) 

60 J$="123456789XVDR" 

70 G=10000 

80 RANDOMIZE TIME 

90 T$(3)="TTTTTTTTRIT" 

100 T$(4)="RRTTTTTTRRT" 

110 T$(5)="RRRRTTTTRRT" 

1206 TS$(6)="RRRRRRTTRRR" 

130 PEN 1: CLS:LOCATE 19,10:PRINT"JE MELANGE LES CA 
149 FOR I=1 TO 13 

150 FOR K=1 TO 4 

168 J(I,K)=0 

176 NEXT K,I 

180 NC=0 

RE 

290 REM MISE DU PONTE 

300 PEN 1:CLS:LOCATE 106,18:PRINT "MISE (MAX":G;"F) 


310 INPUT M 

320 IF M<i OR M>G THEN 300 

RE 
390 REM TIRAGE DE 6 CARTES 

488 FOR I=1 TO 

418 P(I)=0 

420 F=INT(RND*13)+1 

430 C=INT(RND*4)+1 

448 IF J(F,C)>=8 THEN 420 

458 J(F,C)=J(F,C)+1 

460 IF F<16 THEN P(I)=F 

470 S(I,1}=F:S(I,2)=C 

488 NEXT I 

498 T=P(1}+P(3) 

590 IF T>9 THEN T=T-10 

510 TB=P(2)+P(4) 

520 IF TB>9 THEN TB=TB-10 

SO REM 2 
590 REM AFFICHE LE JEU 

609 PEN 3:CLS:PRINT TAB(17);"BACCARA" 
619 PEN 2:PRINT:PRINT TAB(18);"PONTE" 
620 LOCATE 18,12:PRINT "BANQUE" 

630 PEN 3:LOCATE 4,24:PRINT "PONTE:";G;" MISE 


: "M; 
6894 REM --------- 2 - ——- 


698 REM CHOIX DU PONTE 
788 X=18:Y=4:1I=1:GOSUB 1508 
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710 


730 
740 
758 
760 
770 
780 
798 
800 
810 
820 


840 
850 
860 
870 
880 
890 
968 


980 RE 


9968 

1000 
1010 
1020 
1030 
1040 
1050 


1060 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1198 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1296 
1300 
1310 


X=17:1=3:GOSUB 1500 
N=0 


IF T<>9 AND T<>8 THEN 750 
N=1: GOTO 1020 


IF T<=5 THEN 800 
P(5)=10 
MS="#PONTE NON»" 
GOSUB 1700 

GOTO 1800 

IF T=5 THEN 860 


M$="#PONTE CARTE+*" 

GOSUB 1760 

T=T+P(5) 

IF T>9 THEN T=T-10 

GOTO 1068 

LOCATE 13,22:PRINT"CARTE (O/N) ?"; 
AS=INKEYS:IF A$="" THEN 870 

IF A$="0" THEN 830 

IF A$S<>"N" THEN 870 


REM CHOIX DE LA BANQUE 

IF P(5)=10 THEN 1028 
X=24:1]1=5: GOSUB 1508 
X=10:Y=13:1=2: GOSUB 1508 
X=17:1=4:GOSUB 1508 

IF N=1 THEN 1209 

IF TB<3 THEN 1110 

IF TB>6 THEN 1080 

IF MIDS(TS(TB),P(5)+1,1)="T" THEN 1110 
MS$="«BANQUE NONx" 

GOSUB 1708 

GOTO 1200 

M$="#BANQUE CARTE+*" 

GOSUB 1700 

X=24:1]1=6: GOSUB 1508 
TB=TB+P(6) 

IF TB>9 THEN TB=TB-10 

REM 
REM RESULTATS 

IF T<>TB THEN 1248 
M$="#EXAEQUOx" 
GOSUB 1700 

GOTO 13289 

IF T>TB THEN 12990 
M$="#BANQUE GAGNE+«" 
GOSUB 1708 

G=G-M 

GOTO 1329 
MS="*PONTE GAGNE"+STRS(M)+"F +" 
GOSUB 1700 

G=G+M 
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1320 
1330 
1340 
1350 
1360 
1370 
1380 
LE": 
1390 
1480 REM 
1490 REM AFFICHE LES CARTES 

1500 PEN 1 | 

1519 FOR J=Y+1 TO Y+6:LOCATE X+1,J: PRINT" ".N 
EXT J 

1520 PLOT X*16,400-Y*16:DRAW 96+X*16,400-Yx16:DRAW 
96+X*16,304-Y*16: DRAW X*16,304-Y*16: DRAW X*16,400 
-Y*16 
1530 

1540 

1550 

1560 

1570 

1580 

},1) 

1590 

1680 

1699 

1700 

1710 

1720 

1730 

1780 

1790 


NC=NC+6 

IF INKEYS="" THEN 1330 

IF G<i1 THEN 1370 

IF NC>=204 THEN 130 

GOTO 390 

PEN 1:CLS 

PRINT"'MERCI POUR LES DIX":PRINT"'MILLE FRANCS. 
PRINT'CASINO ACCEPTE LES":PRINT"'CHEQUES!" 

END 


— On un 0 © RO NO Gun AN D D ÆR un du UN UP Ou mé ie du ie me UD Œ RS JR Mu UE JUS 


K=128+(S(I1,2)-1)%4 
IF S(I,2)>2 THEN Z=1 
LOCATE X+2,Y+2: PRINT 
PEN Z:LOCATE X+2,Y+3: 


ELSE Z=2 
MIDS(J$,S(I,1) 
PRINT “ "CHRS( 


n 


) ; 
C Rs (Kai 
LOCATE X+2,Y+4:PRINT " 
PEN 1:LOCATE X+2,Y+5: 


RETURN 
REM 
REM AFFICHE UN MESSAGE 

PEN 3:LOCATE 20-LEN(MS)/2,22:PRINT M$ 
FOR I=1 TO 268008:NEXT I 

LOCATE 1,22:PRINT CHR$(18) 

RETURN 

REM 
REM GRAPHIQUES 


? 1 ? 

K)CH 
"CHRS(K+2)CHRS(K+3)" 
PRINT "  "MIDS(JS,S(I,1 


On UN NO D OR ii ue UN UN D 4 Me œ (UN AU UD UD ue Œ AU GR UN AD CMD Me uœ JUS 


+ ne un Que up dun Ne D PO Ouh 4 D “Ré Ole Jus Un GR D Muse un UN (D D M = u 7 en 


1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1986 
1910 
1920 
1930 
1948 
1950 
1960 
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SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 


128,1,3,7/7,15,31,63,127,255 

129, 128, 192, 224, 240, 248, 252,254,255 
130, 255, 127, 63, 31, 15, 7, : 1 

131, 255, 254, 252, 248, 248, 224, 192,128 
132, 56, 124, 254, 254, 255, 255, 255, 255 
133, 56, 124, 254, 254, 254, 254, 254, 254 
134, 127, 127. 63, JL. 15, 7. d, 1 

135; 252, 252, 248, 240, 224, 192, 128,0 
136, 1, 3, 7, 15, 19,19, 7, 51 

137, o; 128, 192, 224, 224, 224,192,152 
138, 121, 253, 255, 253, 121, 51, 7, 15 
139, 60, 126, 254, 126, 60, 152, 192, 224 
140, L. 3, 7, 15, 31, 63, 63, 63 

141, O, 128; 192, 224, 240, 248,248,248 
142, 63, 63, il, 13, Lo, 7, 15 

143, 248, 248, 246, 96, Ô, 128, 192,224 
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PROGRAMME 


Lignes 30 à 180 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en 1800, on place dans le tableau T$ les 
décisions que prendra le banquier. Chaque liste du tableau 
contient onze informations. Les dix premières 
correspondent à la valeur de la carte tirée par le ponte 
(entre 0 et 9). La onzième précise que le ponte n'a pas pris 
de carte. La lettre T conseille au banquier de tirer, alors 
que R l'incite à rester. Chaque ligne correspond au jeu du 
banquier. Seules sont représentées les solutions pour les 
valeurs comprises entre 3 et 6 puisque le banquier tire 
toujours une carte quand il a moins de 3 points et refuse 
quand il en a plus de 6. 


Le tableau J correspond au sabot. Il est remis à zéro quand 
les cartes sont toutes tirées. 

Lignes 300 à 320 : mise du ponte 

On saisit la mise du ponte à condition qu'elle ne soit pas 
supérieure au capital et qu’elle ne soit pas nulle. 

Lignes 400 à 520 : tirage des cartes 

On tire 6 cartes dans le sabot, F correspondant à la figure 
de la carte et C à la couleur.On incrémente le tableau J de 
1 : celui-ci ne doit jamais dépasser 8 puisqu'il n'y à que 

8 jeux de 52 cartes. 

Lignes 700 à 900 : choix du ponte 

Après l'affichage des cartes du ponte, celui-ci peut choisir 
une carte uniquement si le total de ses points est égal à 5. 


Dans les autres cas, on suit les règles exposées dans 
l'introduction de ce chapitre. 


Lignes 1000 à 1150 : choix du banquier 

Le banquier tire ou non une carte suivant les données du 
tableau T$ (voir les explications des lignes 30 à 180). 
Lignes 1200 à 1390 : résultats et fin 


Pour les résultats,il suffit de comparer les jeux du ponte et 
du banquier (variables T et TB). On les affiche à l'écran 
ainsi que les gains du ponte. Si ce dernier a toujours de 
l'argent, on continue la partie. 


Dans le cas où le nombre de cartes déjà tirées dépasse 
204, on remet le tableau J à zéro avant une nouvelle partie. 
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A$ choix du ponte 
LISTE nombre aléatoire donnant la couleur 


DES VARIABLES : | F nombre aléatoire donnant la figure 
G gain du ponte 
| indice de boucle FOR/NEXT 
J$ liste des cartes 
J(,) cartes du jeu : 13 cartes et 4 couleurs 
K indice de boucle FOR/NEXT 
M mise du ponte 
M$ message à afficher 
A N=1 si main naturelle 
NC nombres de cartes déjà utilisées 
P() valeur des cartes de la partie 
S(,) cartes en jeu 
T total des cartes du ponte 
T$() liste des choix du banquier : 


— T conseille de tirer une carte 
— R incite à rester à 2 cartes 
TB total des cartes du banquier 
X et Ÿ coordonnées des cartes sur l'écran 


BACCARA 
PONTE 


KPONTE GAGHE 1996Fx 
PONTE: 19008 MISE: 1008 
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BUCK DICE 


Buck Dice se joue avec quatre dés. Le premier, tiré une 
seule fois en début de partie, sert d’atout. Chaque joueur 
lance à tour de rôle les trois autres dés. 


Pour gagner une partie, il faut obtenir quinze points. 
Chaque dé qui correspond à l’atout donne un point. S'il 
s’agit d'un brelan, appelé Little Buck, on obtient cinq 
points. Le brelan d'atout, appelé Big Buck, donne 
automatiquement quinze points quel que soit le total 
antérieur. 


Si un joueur obtient au moins un point il doit rejouer. 


À l'exception de Big Buck, il n’est pas possible de dépasser 
quinze. Le joueur passe donc son tour sans marquer de 
point dans ce cas. 


Pour lancer les dés, chaque joueur doit appuyer sur un des 
chiffres de un à neuf pour forcer le sort. Après chaque 
lancer, n'oubliez pas d'appuyer sur ENTER. 


EU CRK DECE 


<—ATOUT 


LT EI 


w 


us 


E 
L 
= 
+ 
Æ 
S 
ES 
7 
Fa 


ju 
SOURNORT 


77700 
pp ee) 


LI 


Les 
KR 
FR 
HE 
K 
KR 
KR 
K 
K 


en me 
sislelsieieieie 
COSCOCES 
gs 
D min 
RAA 
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0:P 
70 

80 

90 

100 
110 
120 
130 
140 
280 
290 
300 
310 
320 
0:D 
330 
340 


4,9: 


350 
360 
370 
380 
390 
480 
490 
500 
510 
520 
530 
540 
550 
560 
2/0 
580 
590 
6Q@ 
610 
620 
630 
640 
650 
660 
670 
680 
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REM BUCK DICE 

REM ---------"""" "1 

CLS 

INPUT"NOMBRE DE JOUEURS ";N 

IF N<1 OR N>8 THEN PRINT"ENTRE 1 ET 8 !":GOTO 4 


MODE @:INK 0@,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
EN 1:BORDER 1 
SYMBOL AFTER 128 
RANDOMIZE TIME 
SYMBOL 128,0,0,0,24,24,0,0,0 
SYMBOL 129,0,24,24,0,8,24,24,0 
SYMBOL 130,96,96,0,24,24,0,6,6 
SYMBOL 131,102,102,0,0,6,@,102,102 
SYMBOL 132,102,102,0,24,24,0,182,102 
SYMBOL 133,102,102,0,102,102,0,102,102 
RE 
REM DESSIN DU JEU 
PEN 3:LOCATE 5,1:PRINT"BUCK DICE" 
PEN 2:LOCATE 11,5:PRINT"<-ATOUT" 
PLOT 254,338:DRAWR 34,9:DRAWR @,-22:DRAWR -34, 
RAWR 0,22 
FOR 1=8 TO 192 STEP 96 
PLOT 158+1,274:DRAWR 34,0:DRAUR @,-22:DRAWR -3 
DRAWR 0,22 
NEXT 
FOR I=1 TO RND*30+30 
A=INT(RND*6)+1 
PEN 3:LOCATÉ 9,5:PRINT CHRS(127+A) 
NEXT 
RE 
REM LE JEU 
FOR K=1 TO N 
AP=P(K) 
PEN 1 
LOCATE 5,12:PRINT"JOUEUR ":K 
Z=VAL(INKEYS):IF Z<1 OR Z>9 THEN 540 
FOR I=1 TO RND(1})#Z+10 
PEN 3 
FOR J=1 TO 3 
D(J)=INT(RND*6)+1 
LOCATE 3+J*x3,9:PRINT CHRS(127+D(J)) 


NEXT J 

PEN 1 

NEXT I 

IF D(1)<>D(2) OR D(2)<>D(3) THEN 6680 
IF D(1)=A THEN P(K)=15:GOTO 688 

IF P(K)+5<16 THEN P(K)=P(K})+5 
P=ABS((D(1)=A)+(D(2)=A)+(D(3)=A)) 

IF P(K)}+P<16 THEN P(K)=P(K)+P 

FOR I=1 TON 
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698 LOCATE 1,14+I:PRINT "JOUEUR";1;":"; USING" ## " 
:P(I);: PRINT "PTS" 

700 NEXT 

710 IF INKEYS<>CHRS(13) THEN 710 

720 IF P(K)=15 THEN 900 

730 IF AP<P(K) THEN 518 

740 NEXT:GOTO 500 

DOO REM ee 
898 REM RESULTATS 

988 MODE 1 

918 PRINT TAB(15);"RESULTATS" 

920 FOR I=1 TO N 


934 LOCATE 8,6+I%2:PRINT"JOUEUR";I;":"; USING" ## 
:P(I);:PRINT'POINT(S)" 

940 NFXT 

950 IF INKEYS<>CHRS(13) THEN 950 

968 RUN 
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PROGRAMME 


LISTE 
DES VARAIBLES : 


Lignes 30 à 140 : initialisation 


Après la saisie du nombre de joueurs, le programme 
initialise les nombres aléatoires (ligne 80). 


Les lignes 100 à 140 initialisent les graphiques avec le 
dessin des six faces d’un dé. 

Lignes 300 à 390 : dessin du jeu 

Les lignes 320 à 350 dessinent sur l'écran les cadres des 
quatre dés. C’est la boucle de 360 à 390 qui donne l'atout. 
Lignes 500 à 740 : le jeu 


Les dés sont affichés par la boucle des lignes 550 à 620 en 
fonction des nombres aléatoires contenus dans le tableau 
D 


Les lignes 630 à 670 calculent les points obtenus par le 
Joueur. 


La boucle des lignes 680 à 700 affiche le nombre de jetons 
restant à chaque joueur. 


LA valeur de l’atout 

AP nombre de points d’un joueur avec un coup 
D() valeur des trois dés 

| indice de boucle FOR/NEXT 

K indice de boucle FOR/NEXT 

N nombre de joueurs 

P nombre de dés correspondant à l’atout 

P() nombre de jetons restant à chaque joueur 

Z chiffre tapé au clavier par le joueur 
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TIERCE 


Pourquoi vous priver d'assister en direct au tiercé quand il 
pleut ou qu'il fait froid ? 

Branchez vite votre Amstrad, réunissez votre famille, vos 
amis, et les paris sont ouverts. 

Huit joueurs au maximum peuvent inscrire leurs 
combinaisons de trois chevaux de 1 à 9. 

Puis vos favoris n’attendent que l’enfoncement d’une 
touche pour s'élancer sur l'hippodrome. 

Le 3, le 5... non c’est le 7 qui l'emporte d’une longueur ! 
De toute façon l'ordre d'arrivée s'inscrit au fur et à mesure 
au bas de l'écran. 

Quand la course est finie, vous pouvez taper sur n'importe 
quelle touche pour avoir les résultats des joueurs. 


Pour le tiercé dans l’ordre, vous « touchez » dix points : 
dans le désordre 9 points. Pour deux chevaux gagnants 
vous touchez 2 points et pour un seul cheval rien du tout. 


Mais vous pouvez rejouer très vite en tapant sur une 
touche et aux prochains résultats vous obtiendrez le cumul 
de vos points dans la colonne total. 


Alors, prêts pour une deuxième course ? 
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19 REM TIERCE 

20 REM ---------- 

30 SYMBOL AFTER 128: GOSUB 2000 

40 MODE 1:INK 06,9:INK 1,0:INK 2,6:INK 3,15:PAPER 9 
:PEN 1:BORDER 9 

50 INPUT"NB DE PARIEURS";PA 

60 IF PA>8 THEN 40 

70 PRINT:PRINT 

80 FOR I=1 TO PA 

90 PRINT'NOM DU PARIEUR";lI; 

108 INPUT NS(I) 

110 NEXT I 

126 RANDOMIZE TIME 

189 REM ----------------- 

198 REM ENTREE DES PARIS 

208 C=C+1 

218 CLS:PRINT:PRINT TAB(14); "COURSE"; C 

226 FOR I=1 TO PA 

230 PRINT:PRINT 

240 FOR J=1 TO 3 

2506 PRINT"'CHEVAL'":J;"DE ":NS(I) 

268 INPUT C(I,J) 

270 IF C(I,J)>9 THEN 258 

280 NEXT J,I 

380 REM ----------------____--_- 

399 REM LA COURSE 

409 CLS:PEN 2:PRINT TAB(14); "COURSE"; C:PRINT:PRINT 
:PRINT:PEN 1 

410 PRINT STRINGS(36,"-") 

42@ FOR I=1 TO 9 

430 PEN 3:PRINT I::PEN 1:PRINT AS$(1}:CHR$(134);::PE 
N 3:PRINT TAB(36):CHR$(133) 

44@ PRINT " ". CHR$(134); TAB(36); CHRS(133) 
450 NEXT I:PEN 1 

468 PRINT STRINGS(36,"-") 

470 FOR I=1 TO 9:R(I1)=0:X(I1)=4:NEXT 

480 PEN 1 

500 IF INKEYS="" THEN 508 

510 FOR 1-6 TO 23:LOCATE 7,I:PRINT " ":NEXT 
600 I=INT(RND#9)+1 

616 IF X(I1)>36 THEN 600 

629 LOCATE X(I),4+I#2:PRINT AS(1):FOR J=1 TO 50:NE 
XT J 

630 LOCATE X(I)},4+]I#2:PRINT AS(2) 

648 X(I)=X(I)+1 

650 FOR J=1 TO 40:NEXT J 

660 IF X(I1)>=36 THEN 708 

670 GOTO 680 

684 REM --------------_ 

690 REM VERIF. ARRIVEE 

700 X(I)=X(I)+1 
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718 NA=NA+1:R(NA)=I 

720 PEN 2:LOCATE NA#2,25:PRINT I::PEN 1 
730 IF NA<9 THEN 600 

189 REM --------"2"" 
790 REM RESULTATS 

800 IF INKEYS="" THEN 800 

810 CLS:PEN 2:PRINT TAB(12);"RESULTATS":PEN 1 
820 PRINT: PRINT"PLACE NO" 

830 FOR I=1 TO 9:PRINT I,R(I):NEXT I 
848 PRINT: PRINT"NOM C1 C2 C3 PTS TOT." 
850 FOR I=1 TO PA 

860 N0=0:T=0:TP=8 

870 FOR J=1 TO 3 

880 FOR K=1 TO 3 

890 IF R(J)<>C(I,K) THEN 910 

988 NO=NO+1 

918 IF J<>K OR R(J)<>C(I,K) THEN 930 
920 T=T+1 

938 NEXT K,J 

940 IF T=3 THEN TP=TP+5 

950 IF NO=3 THEN TP=TP+5 

9606 IF NO=2 THEN TP=TP+2 

9706 P(I)=P(I)+TP 


989 PRINT LEFTS(NS(I)+" ",6);" ";C(I,1):C(1,2) 
CCI, 3); TP;" ";P(I) 

998 NEX 

1000 tr. INKEYS="" THEN 1000 

1818 NA=0 

1920 GOTO 206 

198Q REM ----------- 


1998 REM GRAPHIQUES 

2008 SYMBOL 128,8,06,0,12,3,3,5,10 

2018 SYMBOL 129,8,12,26,113,255,254,1,1 

2028 SYMBOL 1306,0,128,224,144,192,128,64, 32 
2030 SYMBOL 131,0,0,1,195,63,63,80,80 

2040 SYMBOL 132,128,196,174,153,252,224,20, 34 
2050 SYMBOL 133,168,80,168,80,168,80,168,80 
2068 SYMBOL 134,128, 128,128,128,128,128,128,128 
2070 AS(1)=CHRS(128)+CHRS(129)+CHR$ (130) 

2088 AS(2)=" "+CHR$S(131)+CHRS (132) 

2090 RETURN 
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PROGRAMME Lignes 30 à 120 : initialisation 
On saisit au clavier le nombre et le nom des parieurs. 
Lignes 200 à 280 : entrée des paris 


Après l’incrément du numéro de la course, chaque parieur 
donne à tour de rôle sa combinaison de trois chevaux. 
Celle-ci est placée dans le tableau à deux dimensions C(,). 


Lignes 400 à 730 : dessin, course et vérification de 
l’arrivée 

Après le dessin de l'hippodrome, le jeu commence en 
déplaçant aléatoirement les chevaux (variable 1). 

La ligne 730 teste si tous les chevaux sont sur la ligne 
d'arrivée. 

Lignes 800 à 1020 : résultats 


Cette partie du programme donne les résultats à l'arrivée et 
compte le nombre de points acquis par chaque parieur. 


Dès qu'une touche d'Amstrad est appuyée, le programme 
retourne à la ligne 200 pour une nouvelle course. 
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LISTE 
DES VARIABLES : 


dessin des chevaux 

numéro de la course 

chevaux joués par chaque parieur 
indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

nom des parieurs 

numéro d'arrivée 

nombre de chevaux dans l’ordre 

total des points (cumul de toutes les courses) 
nombre de parieurs 

tableau d'arrivée 

nombre de chevaux dans le désordre 
total des points de la dernière course 
position des chevaux pendant la course 


COURSE & 
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Après avoir rentré votre mise (au maximum le montant du 
capital affiché) l'ordinateur vous propose cinq cartes. 

À vous de préparer une combinaison en gardant (taper 0 
pour oui) ou en changeant (taper N pour non) les cartes 
désignées par la flèche. 


Les résultats seront les suivants : 





Même pas aucune des mise perdue 

une paire combinaisons qui 
suivent. 

1 paire 2 cartes de même mise perdue 
valeur 

2 paires 2 x 2 Cartes de rien 
même valeur 

Brelan 3 cartes de même mise gagnée 
valeur 

Séquence 5 cartes qui se 2 fois la mise 


suivent dans 
n'importe quelle 


couleur 
Full Brelan + paire 3 fois la mise 
Flush 5 cartes de la même 4 fois la mise 
couleur 
Carré 4 cartes identiques 5 fois la mise 
Flush royal 5 cartes se suivant 6 fois la mise 
dans la même 
couleur 


Pour les cinq dernières combinaisons, l'ordinateur 
propose de doubler votre mise (répondre O ou N). Si vous 
acceptez, vous devez lui dire si la prochaine carte affichée 
est rouge ou noire (répondre R ou N). Bien sûr vous 
perdez tout si vous vous êtes trompé | 


Le capital est alors mis à jour et vous pouvez continuer la 
partie jusqu'a épuisement de vos fonds. 
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19 REM POKER 
RE 

30 SYMBOL AFTER 128:GOSUB 2000 

49 MODE 1:INK @,13:INK 1,@:INK 2,6:INK 3,15:PAPER 
O:PEN 1:BORDER 13 

50 DIM J(8,4) 

60 J$="789XVDR1" 

70 G=100 

80 RANDOMIZE TIME 

98 FOR I=1 TO 8 

108 C(I)=0 
118 FOR k= 
128 J(I,K) 
130 NEXT K, 
189 REM ----------- 

190 REM MISE DU JOUEUR 

208 PEN 1:CLS:LOCATE 18,1@:PRINT "MISE (MAX";G;"F) 
210 INPUT M 

220 IF M<i OR M>G THEN 208 

289 REM ------------ 

290 REM TIRAGE DE 18 CARTES 

300 FOR I=1 TO 16 

318 P(I}=0 

320 F=INT(RNDxB)+1 

330 C=INT(RND#4)+1 

340 IF J(F,C)=1 THEN 320 

358 J(F,C})=1 

368 S(I,1}=F:S(I1,2)=C 

370 NEXT I 

D RE 

490 REM LE JEU 

500 PEN 2:CLS:PRINT TAB(19); "POKER" 

51@ PEN 3 

528 LOCATE 4,24:PRINT "CAPITAL:";G;" MIS 
E:".:M; 

530 C=0 

54Q FOR I=1 TO 5 

550 X=1*7-3:Y=3:GOSUB 1300 

560 NEXT I 

570 FOR I=1 TO 5 

580 LOCATE 1+I*x7,12:PRINT "“" 

590 AS=INKEYS:IF AS="" THEN 590 

600 IF A$="N" THEN 648 

610 IF A$<>"O" THEN 590 

620 LOCATE 1+I#7,11:PRINT "O" 

630 GOTO 660 

648 S(I,1}=S(1+5,1):S(1,2)=S(1+5,2) 

650 LOCATE 1+1*7,11:PRINT "N" 

660 LOCATE 1+I*x7,12:PRINT " ” 

670 NEXT I 
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680 FOR I=1 TO 5 

690 X=Ix7/7-3:GOSUB 1300 

768 NEXT I 

710 FOR I=1 TO 8 

720 P(T)-=@ 

730 FOR J=1 TO 5 

740 TF S(J,1})=I THEN P(I)=P(I)+1 
7/50 NEXT J 

768 FOR J=2 TO 4 

77@ IF P(I)=J THEN C(J)=C(J)+1 


780 NEXT J 

790 NEXT I 

800 IF C(4)=1 THEN C=7:GOT0 948 

810 IF C(3)=1 AND C(2)=1 THEN C=5:GOTO 906 
820 IF C(3)=1 THEN C=3:GOT0 960 

830 IF C(2)=2 THEN C=2:GOT0 908 

840 IF C(2)=1 THEN C=1:GOTO 908 

850 FOR I=5 TO 8 

868 FOR J=1 TO 5 

870 IF S(J9,1)>I OR S(J,1})<I-4 THEN 890 
884 NEXT J:C-=4 

890 NEXT I 


908 FOR I=2 TO 5 

918 IF S(I,2)<>S(I-1,2) THEN 948 

928 NEXT I 

9306 IF C=4 THEN C=8 FLSE C=6 

94Q@ LOCATE 22-LEN(CS(C))}/2,28:PRINT CS(C) 

95@ IF C<2 THEN 1108 

964 IF C<3 THEN LOCATE 8,21:PRINT'DEUX PAIRES C'ES 
F PAS ASSEZ":GOTO 1118 

974 LOCATE 16,21:PRINT"MISE * PAR": 0-2 

988 IF C=3 THEN 1090 

994 LOCATE 13,22:PRINT "VOUS VOULEZ * PAR": (C-2)«2 
1008 AS=INKEYS:IF A$="" THEN 1000 ELSE IF AS<>"O" 
THEN 1090 FLSE LOCATE 16,21:PRINT"MISE * PAR": (C-2 
#2 

1014 LOCATE 1,22:PRINT"'LA PROCHAINE CARTE EST ROUG 
FE OU NOIRE ?" 

1920 AS=INKEYS:IF AS="" THEN 1020 ELSE IF AS<>"N" 
AND AS<>"R" THEN 1026 

1030 X=18:Y=12:[=1 

1048 F=INT(RND#B8)+1:Z=INT(RND#4)+1:IF O(F,2)=1 THE 
N 1040 FLSE S(1,1)=F:S(1,2)=Z 

1058 GOSUB 1300 | 

1069 IF (S(1,2)<2 AND A$="N") OR (5(1,2)>2 AND A5= 
"R") THEN 1080 

1870 G=G+Mx(C-2)#2:GOTO 1118 

108@ G=G-M#(C-2)*2:GOTO 1118 

1498 G=G+M»{(C-2):GOT0 1118 

1100 G=G-M 

1110 IF INKEYS="" THEN 1110 
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1120 


IF G>60 THEN 80 


1130 CLS 


1149 
1150 
1160 
1170 
1280 
12980 


1300 P 


1310 
EXT 
1320 


PRINT"'AVEC L'ARGENT QUE VOUS AVEZ" 
PRINT'PERDU, JE VAIS M'ACHETER"“ 
PRINT'UNE EXTENSION ...!" 

END 
REM 
. es LES CARTES 


FOR J=Y+1 TO Y+6:LOCATE X+1,J:PRINT" “2 N 


J 
PLOT X#16,408-Y#16:DRAW 96+X*16,400-Y#16:DRAW 


96+X*16,304-Y#16: DRAW X*16,304-Y*16: DRAW X*16, 400 


-Y+16 


1330 
1340 
1350 
1360 
13/0 
1380 
),1) 
1390 
1980 
1990 
2800 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2898 
2100 
2110 
2120 
2130 
2140 
2150 
2160 


K=128+(S(I,2)-1)*4 

IF S(1,2)>2 THEN Z=1 ELSE Z=2 
LOCATE X+2,Y+2:PRINT MIDS(JS,S(I, 1 
PEN Z:LOCATE X+2,Y+3:PRINT " "CHRS 


) , 1 
(K) 
LOCATE X+2,Y+4: PRINT “ "CHRS(K+2)CHRS 
PEN 1:LOCATE X+2,Y+5:PRINT "  "MIDS( 


);" “ 
CHRS(K+1 
K+3 
$,9 


? 


Oz 


( )" 
J$,S(I, 
RETURN 

RE 

REM GRAPHIQUES 

SYMBOL 128,1,3,7,15,31,63,127,255 

SYMBOL 129,128,192,224,240, 248, 252,254, 255 
SYMBOL 130,255,127,63,31,15,7,3,1 

SYMBOL 131,255,254,252,248, 240, 224,192, 128 
SYMBOL 132,56,124,254,254,255,255, 255,255 
SYMBOL 133,56,124,254,254,254, 254,254 254 
SYMBOL 134,127,127,63,31,15,7,3,1 

SYMBOL 135,252, 252,248, 240, 224,192,128,0 
SYMBOL 136,1,3,7,15,15,15,7,51 

SYMBOL 137,8,128,192,224,224,224, 192,152 
SYMBOL 138,121,253,255,253,121,51,7,15 
SYMBOL 139,60,126,254,126,60,152,192, 224 
SYMBOL 140,1,3,7,15,31,63,63,63 

SYMBOL 141,0,128,192,224,240, 248,248, 248 
SYMBOL 142,63,63,31,13,1,3,7,15 

SYMBOL 143,248,248,240,96,0,128,192,224 
C$(1)="UNE PAIRE":C$(2)="DEUX PAIRES":C$(3)=" 


BRELAN" 


2170 
2180 

PAS 
2190 


C$(4)="SEQUENCE":C$(5)="FULL":C$(6)="FLUSH" 
C$(7)="CARRE":C$(8)="FLUSH ROYAL":C$(0)="MEME 
UNE PAIRE" 

RETURN 
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PROGRAMME 


Lignes 30 à 130 : initialisation 


Après la définition des caractères graphiques et des 
combinaisons gagnantes dans le tableau C$ (sous- 
programme en 2000), on initialise à 0 le tableau J 
correspondant au jeu de cartes. Îl est remis à zéro à 
chaque partie. 


Lignes 200 à 220 : mise du joueur 


On saisit la mise du joueur à condition qu'elle ne soit pas 
supérieure au capital et qu'elle ne soit pas nulle. 


Lignes 300 à 370 : tirage de 10 cartes 


On tire 10 cartes dans le jeu, F correspondant à la figure de 
la carte et C à la couleur. On incrémente le tableau J de 1 : 
on teste celui-ci à chaque tirage pour ne pas utiliser deux 
fois la même carte. 


Lignes 500 à 1170 : le jeu 


Après l'affichage des cartes avec le sous-programme en 
1300, on saisit le choix du joueur. 


Puis on affiche les nouvelles cartes et l'on suit les règles 
exposées dans l'introduction de ce chapitre. 


Les boucles des lignes 710 à 790 placent dans le tableau C 
le nombre de cartes identiques (exemple : C(4)=1 donne 
un carré, C(2)=2 donne deux paires, etc...) 


Les lignes 800 à 840 placent dans la variable C les 
combinaisons trouvées à partir des valeurs du tableau C 
(exemple : C(3)=1 et C(2)=1 donne un full donc C=5). 


Les lignes 850 à 890 détectent la présence d'une séquence 
(C—4) et les lignes 900 à 920 la présence d'un flush (cinq 
cartes de la même couleur, C=6). Si l’on avait déjà une 
séquence, C=4 devient C=8 pour le flush royal. 


Après totalisation des gains, on reprend une autre partie 
s’il reste encore du capital. 
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LISTE Fe 


DES VARIABLES : 


C() 
C$() 
F 
G 
J 
J$ 
J(,) 
K 


L$() 
M 


S(,) 
X et Ÿ 





choix du joueur 

nombre aléatoire donnant la couleur 
nombre de cartes identiques 

liste des combinaisons gagnantes 

nombre aléatoire donnant la figure 

gain du joueur 

indice de boucle FOR/NEXT 

indice de boucle FOR/NEXT 

liste des cartes 

cartes du jeu : 8 cartes de 4 couleurs 
pointeur des caractères graphiques pour 
afficher le jeu 

dessin des cartes 

mise du joueur 

nombre de cartes identiques (ex : P(1)=3, 
s'il y a 3 fois la carte 7, P(2)=4 s'il y a 4 fois 
la carte 8) 

cartes en jeu 

coordonnées des cartes sur l'écran 
couleur de la carte à afficher 


POKER 


ÔQ Q 
nm, 
| + 
+ 
EFULL 


| MISE x PAR 6 
LA PROCHAINE CARTE EST ROUGE OU NOIRE 7 
CAPITAL: 56 MISE: 10 
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Plus de tricherie possible : vous pouvez jouer à deux aux 
célèbres petits cochons dont il faut gagner aux dés tous les 


Amstrad dessine les dés sur l'écran. Chaque joueur doit 
les lancer en appuyant sur un des chiffres de 1 à 9 (pour 
forcer le sort). 


Mais quelle surprise : si vous avez 9 points en tout, le 
corps d'un cochon apparaît. || faudra ensuite 
successivement 7 points pour chaque œil, au moins un dé 
de six pour la queue et au moins un as pour une patte ou 
une oreille (un double as vous donnant droit à deux 
pattes). 
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19 REM PETITS COCHONS 

29 REM --------------- 2 - - —- 

30 MODE 1:INK 0,1:INK 1,24:INK 2,16:INK 3,2:PAPER 
0:PEN 1:BORDER 1 

48 SYMBOL AFTER 128 

50 DEG 

69 RANDOMIZE TIME 

70 DATA CORPS,9,OEIL DROIT,7,O0EIL GAUCHE, 7, QUEUE, 6 
86 DATA OREILLE DROITE,1,0REILLE GAUCHE, 1 

90 DATA PATTE AV. DROITE,1,PATTE AV. GAUCHE,1,PATIT 
E AR. DROITE,1,PATTE AR. GAUCHE, 1 

106 FOR I=i TO' 19-:READ N$(I), D(I): NEXT 

119 SYMBOL 128,0,0,0,24,24,0,0,8 

120 SYMBOL 129 0,24,24,0,0.24,24,0 

130 SYMBOL 1306,96,96,0,24,24,0,6,6 

149 SYMBOL 131,102,102,80,0,8,0,102,102 

150 SYMBOL 132,102,102,0,24,24,0,102,102 

169 SYMBOL 133,102,102,0,102,102,0,102,102 

179 X(1)=200-: x (2) 590 

189 FOR I=1 TO 

199 PLOT 158+1»96, 162,2:DRAUR 18,8:DRAWR 8,-22:DRA 
WR -18,0:DRAUWR @, 22 

2686 NEXT 

289 REM ---------------------------- 

290 REM LE JEU 

300 FOR I=1 TO ? 

319 LOCATE 1,2@:PRINT CHR$(7); CHR$S(18); TAB(16); “JO 
UEUR":I 

320 A=VAL(INKEYS) 

330 IF A<1i OR A>9 THEN 328 

340 FOR J=1 TO Ax3 

350 FOR K=1 TO 2 

3606 DE(K)=INT(RND*6)+1 

370 LOCATE 11+K#*6,16:PRINT CHR$S(12/+DE(K)) 

380 NEXT 

390 NEXT 

400 DES=DE(1)+DE(2) 

410 J=EL(I)+1 

420 IF J=4 THEN 440 

430 IF D(J)=DES THEN 488 

440 IF D(J)=DE(1) THEN 480 

458 IF D(J)=DE(2) THEN 480 

464 LOCATE 15,20:PRINT CHR$S(18),;" RIEN" 

479 FOR K=1 TO 5988:NEXT:GOTO0 594 

480 EL(I)=EL(I)+1:X=X(1I) 

. rE t'il 1,20:PRINT TAB(20-LEN(NS(J))/2); CHRS(18 
); N$(J) 

508 ON J GOSUB 800,900,1080,17/700,1100,1200,1300,14 
080,1588,1600 

510 IF DE(1)<>1 OR DE(2)<>1 THEN 57/0 

520 IF EFL(I1)=-10 THEN 700 
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530 J=J+1 

540 EL(I)=EL(I)+1 

550 LOCATE 1,29:PRINT TAB(20-LEN(N$S(J))/2)}; CHR$S(18 
); N$(J) 

5606 ON J GOSUB 800,900,1009,17/700,1100,1200,1380,14 
00,1508,1608 

570 IF EL(T)=10 THEN 7/00 

580 GOTO 310 

590 NEXT I 

609 GOTO 308 

680 REM ----------—mmmm mm —— 

696 REM FIN 

768 LOCATE 1,28:PRINT CHR$S(18); TAB(12);"LE JOUEUR" 
. I; "GAGNE" 

710 IF INKEYS<>CHRS(13) THEN 718 

728 RUN 

789 REM ------------------------------- 

790 REM CORPS 

866 FOR K=1 TO 360:MOVE X-14,308:PLOTR 78*xCOS(K),5 
OSIN(K),2:NEXT 

819 FOR K=1 TO 360 STEP 3:MOVE X-110,329:PLOTR 30% 
COS(K), 3@#SIN(K):NEXT 

828 FOR K=1 TO 368 STEP 6:-MOVE X-110,304:DRAWR 10% 
COS(K},10#SIN(K):NEXT 

830 RETURN 

880 REM --------------------- 

8904 REM OEIL GAUCHE 

906 FOR K=1 TO 360 STEP 6:MOVE X-120,320:PLOTR 4*C 
OS(K),4*SIN(K),3:NEXT 

910 RETURN 

989 REM ------------------------------- 

999 REM OEIL DROIT 

19086 FOR K=1 T0 360 STEP 6:MOVE X-100,3260:PLOTR 4x 
COS(K}),4*SIN(K),3:NEXT 

1019 RETURN 

1080 REM -------------------------- - --- 

1098 REM OREILLE GAUCHE 

11808 PLOT X-124,352,2:DRAW X-116,368:DRAW X-112,35 
4:DRAW X-124,352 

1119 RETURN 

1180 REM ---------------mu nm 

1190 REM OREILLE DROITE 

1200 PLOT X-104,354,2:DRAW X-96,368:DRAW X-92, 352: 
DRAW X-104,354 

1210 RETURN 

1280 REM ------------------------------ 

1290 REM PATTE AVANT GAUCHE 

1304 PLOT X-78,262,2:DRAW X-62,254:DRAW X-62,210:0D 
RAW X-/0,218:DRAW X-7/70,262 

1319 RETURN 

1380 REM ----------------- 
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1390 REM PATTE AVANT DROITE 

1400 PLOT X-54,250,2:DRAW X-46,242:DRAW X-46,210:D 
RAW X-54,210:DRAW X-54, 250 

1410 RETURN 

140 REM = 

1490 REM PATTE ARRIERE GAUCHE 

1508 PLOT X+24,250,2:DRAW X+16,242:DRAW X+16,210:D 
RAW X+24,210:DRAW X+24, 250 

1518 RETURN 
RE 

1599 REM PATTE ARRIERE DROITE 

1608 PLOT X+40,262,2:DRAW X+32,254:DRAW X+32,210:D 
RAW X+40,218:DRAW X+40, 262 

1619 RETURN 
OR 

1690 REM QUEUF 

1700 FOR K=40 TO 64 STEP 10 

1710 FOR L=1 TO 90 STEP 2:MOVE X+K, 300+K:PLOTR 10% 
COS(L),10#SIN(L),1:NEXT 

1720 FOR L=180 TO 360 STEP 2:MOVE X+K, 380+K:PLOTR 
18#COS(L),10*xSIN(L), 2: NEXT 

1730 NEXT 

1740 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 200 : initialisation 

Les DATA des lignes 70 à 90 définissent toutes les parties 
du cochon. Le chiffre qui suit le nom correspond au 
nombre de points à faire avec les dés. 


Les lignes 110 à 160 placent dans les graphiques la 
représentation des six faces du dé. 


Les lignes 180 à 200 dessinent les cadres autour des deux 
dés. 


Lignes 300 à 600 : le jeu 


On saisit au clavier le nombre entre 1 et 9 que tape le 
joueur. Ce nombre est utilisé dans la génération des dés 
aléatoires (boucle des lignes 340 à 390). 


La variable J donne le numéro du prochain élément à 
afficher. On vérifie donc dans le tableau D() si les dés 
correspondent à cet élément. Si c’est le cas, on va à la 
ligne 480 pour afficher la partie du cochon. S'il s’agit d’un 
double as, on affiche une deuxième patte. 


À chaque lancer de dés on vérifie si le cochon est complet 
en testant le tableau EL(). 

Lignes 700 à 720 : fin 

Ces lignes affichent le nom du gagnant et recommencent 
une partie dès qu'une touche est appuyée. 

Lignes 800 à 1750 : affiche les cochons 


Chaque sous-programme affiche une partie du cochon en 
haute-résolution à droite ou à gauche de l'écran suivant la 
valeur de la variable X. 


A valeur de la touche appuyée 

D() valeur de chaque élément du cochon 

DE() valeur des deux dés 

DES somme des deux dés 

EL() nombre d'éléments déjà affichés 
indice de boucle FOR/NEXT 

J indice de boucle FOR/NEXT 

K indice de boucle FOR/NEXT 

N$() noms des éléments du cochon 

X() position du cochon sur l'écran 
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PASSE-DIX 


Le passe-dix se joue avec trois dés et un tapis de quatre 
cases. Chaque joueur (jusqu’à quatre) mise à chaque 
partie Sur une des cases en donnant son numéro. Si la 
somme des dés correspond à un des nombres de la case 
choisie, le joueur remporte le double de sa mise. 


Les nombres dits « MANQUE » sont ceux compris entre 3 
et 10, et les « PASSE » ceux entre 11 et 18 (d’où le nom 
du jeu). Les MANQUE et les PASSE sont séparés pairs et 
impairs pour obtenir quatre cases. 

Comme la partie se joue sur dix tirages, chaque joueur a 
un capital de 10 jetons dès le début. Le programme affiche 
les résultats en fin de partie. 
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19 REM PASSE-DIX 
29 REM -------"" 
36 DEFINT A-Z 

CLS 


90 INPUT"'NOMBRE DE JOUEURS ";N 
69 IF N<1 OR N>4 THEN PRINT"ENTRE 1 ET 4 !":GOTO 5 


70 MODE 0:INK 6,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
Ô:PEN 1:BORDER 1 

80 SYMBOL AFTER 128 

98 RANDOMIZE TIME 

180 SYMBOL 128,0,0,0,24,24,0,6,0 

118 SYMBOL 129,0,24,24,06,06,24,24,0 

120 SYMBOL 130,96, 96,0,24,24,8,6.6 

138 SYMBOL 131,102,102,0,8,8,0.,102,102 

148 SYMBOL 132,102,102,0, 24,24 0,102, 102 

158 SYMBOL 133,102,102,0,182,102,0,162,102 

169 SYMBOL 134,24,126, 102,247, 247,118,118, 24 

170 SYMBOL 135,24,102,90,247,239,66,126, 24 

189 SYMBOL 136,24,126,102,247,231,118,102, 24 

199 SYMBOL 137,24,126,94,215,195,118,118, 24 

208 C(1)=8:C(2)=13:C(3)=3: C(4)=15 

219 X(1)=3:X(2)=3:X(3)=13:X(4)=13 

220 Y(1}=6:Y(2)=12:Y(3)=6:Y(4)=12 

230 FOR I=1 TO N:P(I)}=10:NEXT 

389 REM ------ "2" 

390 REM DESSIN DU JEL 

488 FOR K=1 TO 18 

418 CLS 

428 LOCATE 1,2:PRINT"1":LOCATE 3,2:PRINT"MANQUE":L 
OCATE 3,4:PRINT"IMPAIR" 

43@ LOCATE 20,2:PRINT"3":LOCATE 13,2:PRINT"PASSE": 
LOCATE 13,4:PRINT"IMPAIR" 

440 LOCATE 1,12: PRINT"2":LOCATE 3,8:PRINT"MANQUE": 
LOCATE 5,10:PRINT"PAIR" 

459 LOCATE 20,12: PRINT"4":LOCATE 13,8:PRINT"PASSE" 
:LOCATE 13,10: PRINT"PAIR" 

468 PLOT 2,398:DRAWR 634,0:DRAWR @,-192:DRAWR -634 
,O:DRAWR 0,192 

470 PLOT 364,398: DRAWR @,-192 

48@ PLOT 2,298:DRAWR 634.0 

490 PLOT 2,366: DRAWR 32,0: DRAWR 8,32:PLOT 636, 366: 

DRAWR -32,8:DRAWR 0, 32 

508 PLOT 2,238:DRAUR 32,0:DRAWR 8,-32:PLOT 636,238 
:DRAWR -32,0:DRAUR Q,-32 

510 FOR I=@ TO 192 STEP 96 

520 PLOT 190+1,180:DRAWR 36,0:DRAWR 0,-26:DRAUR -3 
6,8: DRAUR 0,26 

530 NEXT 

548 FOR I1=1 TO N 

554 LOCATE 4,21+1:PRINT'JQUEUR";1;":".P(1) 
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NEXT 

REM --------"""""""""" 
REM LE JEU 

FOR I=1 TO N 


LOCATE 7,18:PRINT "JOUEUR";I:PRINT TAB(3); "NUM 
DE LA CASE ?" 

J(I)=VAL(INKEYS):IF J(1)=0 THEN 720 

IF J(I1)<1 OR J(I)>4 THEN 720 

LOCATE X(J(1))+I,Y(J(1)):PRINT CHR$(I+133) 
LOCATE 1,18:PRINT CHRS(18):PRINT:PRINT CHRS(18 


NEXT 

FOR I=1 TO RND»20+20 

FOR J=1 TO 3 

D(J)=INT(RND*6)+1 

LOCATE 4+J3,15:PRINT CHR$(127+D(J)) 


819 NEXT 

820 NEXT 

836 D=D(1}+D(2)+D(3) 

840 LOCATE 6,18: PRINT"'TOTAL:";:0D 

850 IF INKEYS<>CHRS(13) THEN 858 

860 IF D>1@ THEN J=3 ELSE J=1 

8/79 IF D/2=INT(D/2) THEN J=J+1 

889 FOR I=1 TO N 

8906 IF J(I)=J THEN P(I)=P(I)+1 ELSE P(I)}=P(I)-1 
966 NEXT 

910 NEXT 

1000 REÈM -------------------“ssecemmes 
1996 REM RESULTATS 

1108 MODE 1 

1119 PRINT TAB(15); "RESULTATS" 

1120 FOR I=i TO N 

1130 LOCATE 9,180+I#2: PRINT"'JOUEUR":1I:":";:P(I);: "JET 
ON(S)" 

1140 NEXT 

1150 IF INKEYS<>CHRS(13) THEN 1150 

1160 RUN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 230 : initialisation 
Après la saisie du nombre de joueurs, le programme 
initialise les nombres aléatoires (ligne 90). 


Les lignes 100 à 190 initialisent les graphiques avec le 
dessin des six faces d’un dé et des quatre jetons. 


Lignes 400 à 560 : dessin du jeu 


On commence par afficher le nom des cases (lignes 420 à 
450), puis on trace le tapis (lignes 460 à 500). 


Lignes 700 à 910 : le jeu 


C'est la boucle des lignes 700 à 760 qui saisit le choix des 
joueurs. 


Les dés sont affichés par la boucle des lignes 770 à 820 en 
fonction des nombres aléatoires contenus dans le tableau 
D. 


On calcule en fonction de la somme des trois dés (variable 
D) le numéro de la case gagnante (variable J). 


ne reste plus qu’à comparer la variable J avec le choix de 
chaque joueur (tableau J). On incrémente le nombre de 
points des joueurs gagnants (tableau P) et l'on décrémente 
celui des perdants. 


D somme des trois dés 

D() valeur des trois dés 

| indice de boucle FOR/NEXT 

J numéro de la case gagnante 

J() choix des joueurs 

K indice de boucle FOR/NEXT 

M nombre de joueurs 

P() nombre de jetons restant à chaque joueur 


X()etY() coordonnées des cases sur l'écran 
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BATAILLE 
NAVALE 


Serez-vous assez rapide pour détruire la flotte de votre 
ennemi avant qu'il ne découvre les emplacements de vos 
sous-marins ? 


Au lancement du programme, vous devez situer la position 
de vos cinq submersibles sur une grille de neuf colonnes 
(de À à 1) sur neuf lignes (de 1 à 9) sous la forme A ou 
C3. Cette grille s'affiche alors à gauche de l'écran. 


La bataille commence. Vous réfléchissez et donnez les 
coordonnées supposées d'un sous-marin ennemi. Si vous 
avez touché la cible, l'ordinateur signale COULE, sinon 
DANS L'EAU. Dans les deux cas il coche la case 
correspondante sur la grille qui apparaît à droite de l'écran. 
L'ordinateur propose à son tour une position. S'il saborde 
un de vos bâtiments, Amstrad l'annonce et l’efface de la 
grille de gauche. 


Après votre coup et celui de l'ordinateur, le score des deux 
adversaires apparaît. Amstrad vous demandera un autre 
coup lorsque vous aurez appuyé sur ENTER et ceci jusqu à 
ce que l’une des flottes soit totalement anéantie. 


D 


a ÉCDEECGH 
PREFTEILTII 


E 


1! 
2 
3 
4 
D 
6 
FA 
81 
9 


MN 
COULE 
JOUEUR: 1 GRDINATEUR: 1 
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30 DIM J(9,9,4) 

40 MODE 1:INK 0,1:INK 1,24:INK 2,6:INK 3,15:PAPER 
0: PEN 1:BORDER 1 

56 RANDOMIZE TIME 

60 PRINT"'ENTREZ LES COORDONNEES DES 5 SOUS-MARINS" 
70 FOR I=i TO 5 

80 PRINT"SOUS-MARIN"; I: 

96 INPUT AS:AS=AS+" 

100 X=ASC(AS)-64:Y=VAL(MIDS(AS,2,1)) 

118 IF X<1 OR X>9 OR Y<1 OR Y>9 THEN 80 

120 IF J(X,Y,1)<>0 THEN 88 

130 J(X,Ÿ,1)=1 

148 NEXT 

150 FOR I=1 TO 5 

160 X=INT(RND*9)+1:Y=INT(RND*9)+1 

170 IF J(X,Y,3)<>0 THEN 160 

188 J(X,Y,3)=1 

198 NEXT 

RE 

299 REM DESSIN DU JEU 


19 REM BATAILLE NAVALE 
26 REM 


CLS 
319 X=5:T=1:GOSUB 800 
320 X=22:T=2:GOSUB 800 
330 LOCATE 1,15:PRINT CHRS(18):PRINT CHRS(18):PRIN 
T CHR$S(18) 
389 REM ---------2 2 2 
390 REM TOUR DU JOUEUR 
408 LOCATE 1,14:PRINT CHRS(18); "VOTRE CHOIX "; 
410 INPUT A$:A$=A$+" ":X=ASC(AS)-64: Y=VAL(MIDS(AS 
or 
420 IF X<1 OR X>9 OR Y<1 OR Y>9 THEN PRINT CHRS(7) 
.: GOTO 408 
430 IF J(X,Y,3)=1 THEN PRINT"COULE":J{X,Y,3)=0:T1- 
Ti+1 ELSE PRINT"DANS L'EAU" 
448 J(X,Y,2}=1 
450 PLOT (22+X-1)#16,398-Y*16,3:DRAW (22+X)*16, 382 
-Y#16:PLOT (22+X)*16,398-Y#16: DRAW (22+X-1)*16. 382 
_Y»#16 
RE 
498 REM TOUR DE L'ORDINATEUR 
508 PRINT'MON CHOIX  : ". 
510 X=INT(RND*9)+1:Y=INT(RND*9)+1 
520 IF J(X,Y,4)=1 THEN 510 
530 PRINT CHRS(X+64); RIGHTS(STRS(Y),1) 
540 IF J(X,Y,1)=1 THEN PRINT'COULE":J(X,Y,1)=0:T2= 
T2+1 ELSE PRINT"'DANS L'EAU" 
559 J(X,Y,4)=1 
560 PRINT: PRINT'JOUEUR:";T1;" ORDINATEUR: ": T2 
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570 


PLOT (5+X-1)*16,398-Y#16,0:DRAW (5+X)*16,382-Y 


*16:PLOT (5+X)*16,398-Y*16:DRAW (5+X-1)#16,382-Y«1 
6 

580 IF INKEYS="" THEN 570 

680 REM = 

698 REM FIN DE PARTIE 

700 IF T1<5 AND T2<5 THEN 336 

718 PRINT 

720 IF T1=5 AND T2=5 THEN PRINT"EXAEQUO":GOTO 740 
730 IF T1=5 THEN PRINT'VOUS GAGNEZ" ELSE PRINT"JE 
GAGNE * 

740 IF INKEYS<>CHRS(13) THEN 740 

750 RUN 

789 REM -------- 

798 REM DESSIN D'UN CADRE 

800 PEN 1 

810 FOR J=16 TO 148 STEP 16 

820 PLOT X*16,382,1:DRAW J+X*16, 382: DRAW J+X*16, 38 
2-J:DRAW X*16,382-J:DRAW X*16, 382 

830 PLOT 144+X*16,238:DRAW 144+X*16-J,238:DRAW 144 
+X16-9, 238+J: DRAU 144+X*16,238+J:DRAW 144+X*16, 23 
840 NEXT 

858 PEN 2 

860 FOR I=1 TO 9 

870 LOCATE X+I,1:PRINT CHRS(I+64) 

880 LOCATE X,1+I:PRINT CHRS(I+48) 

899 NEXT I 

980 PEN 1 

919 FOR I=1 TO 9 

920 FOR J=1 TO 9 

930 IF J(I,J,T)=0 THEN 956 

940 PLOT (X+I-1)*16,398-J#16,3:DRAW (X+1)#16,382-J 
#16:PLOT (X+1)*16,398-J*16:DRAW (X+1-1)#16,382-Jx1 
6 

958 NEXT:NEXT 

968 RETURN 
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PROGRAMME 


LISTE 
DES VARIABLES : 


Lignes 30 à 190 : initialisation 

Les lignes 60 à 140 saisissent les coordonnées des sous- 
marins du joueur. Ce sont les lignes 150 à 190 qui placent 
celles de l'ordinateur grâce aux nombres aléatoires X et Y. 
Lignes 300 à 330 : dessin du jeu 

Pour le dessin du jeu, on fait appel au sous-programme en 
800 qui affiche une grille aux coordonnées X et Y. 

Lignes 400 à 450 : tour du joueur 

On saisit dans X et Ÿ les coordonnées du tir. La ligne 430 
vérifie Si un sous-marin est coulé. 

Lignes 500 à 580 : tour de l’ordinateur 


identique au tour du joueur, mais les coordonnées sont 
déterminées par deux nombres aléatoires (variables X et 
Y). 


Lignes 700 à 750 : fin de partie 


On affiche un des trois messages possibles en fonction des 
résultats de la partie. 


AS réponse du joueur 
indice de boucle FOR/NEXT 
J indice de boucle FOR/NEXT 
J(,,) coordonnées des bateaux et des coups joués 
T numéro de la grille à afficher 
T1 points du joueur 
T2 points de l'ordinateur 
X et YŸ coordonnées du tir 
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EN CAS 
D'ERREUR 


Tous les listings de cet ouvrage sont des originaux sortis 
directement de l'imprimante. Tous les programmes de jeu 
proposés ici ont été testés attentivement sur Amstrad CPC 
464 et 664. Une erreur serait donc exceptionnelle. 


Si, malgré tout, l'un des programmes ne fonctionnait pas, 
assurez-vous d'avoir correctement recopié le listing en 
Basic. 


Voici quelques conseils qui vous aideront à déceler 

l'erreur : 

— ne confondez pas @ (zéro) et O (lettre) ; 

— assurez-Vous d'avoir placé correctement les “.” et “:” 
nécessaires ; 

— comptez les lignes du programme à recopier et faites 
attention à ne pas en oublier ; 

— donnez toujours le même nom à vos variables d'un bout 
a l’autre du programme. 


Et surtout... Armez-vous de courage ! 
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SUPER JEUX 
AMSTRAD 


50 programmes de jeux en Basic 





50 super-programmes de jeux d adresse. de réflexion et de hasard 
vous proposent de maîtriser rapidement le BASIC de votre Amstrad 
CPC 464. Tous les programmes contenus dans ce livre fonctionnent 
également sur CPC 664 et 6128. 


En plus du plaisir que vous aurez à déjouer les pièges tendus par les 
“Motos lumineuses , à trouver le meilleur chemin dans le ‘‘Laby- 
rinthe 3D . ou à gagner au ‘‘Tiercé . vous apprendrez, en jouant. 
à construire des programmes de plus en plus complexes en vous 
aidant des commentaires pédagogiques de l'auteur. et de sa précieuse 
liste de variables. 


‘Super Jeux Amstrad contient des programmes faciles à rentrer 


et à modifier selon votre imagination. ainsi que de très belles pages- 
écran. 


Possesseurs d AmsStrad. à vos claviers! 
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